--- trunk/lib/Frey/HTML.pm 2008/08/15 23:49:11 171
+++ trunk/lib/Frey/HTML.pm 2008/11/01 00:59:02 225
@@ -18,13 +18,14 @@
$html->parse( $self->html );
$html->eof;
- my $result = _parse( $html->guts );
+ my $result = $self->_parse( $html->guts );
$html->delete;
return $result;
}
sub _parse {
+ my $self = shift;
foreach my $element ( @_ ) {
if ( blessed $element && $element->isa('HTML::Element') ) {
my $tag = $element->tag;
@@ -34,16 +35,9 @@
} else {
# plain text
warn dump( $element );
- return _escape( $element );
+ return $self->html_escape( $element );
}
}
}
-sub _escape {
- my $html = shift;
- $html =~ s/</;
- $html =~ s/>/>/;
- return $html;
-}
-
1;