--- 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/</&lt;/;
-	$html =~ s/>/&gt;/;
-	return $html;
-}
-
 1;