18 |
$html->parse( $self->html ); |
$html->parse( $self->html ); |
19 |
$html->eof; |
$html->eof; |
20 |
|
|
21 |
my $result = _parse( $html->guts ); |
my $result = $self->_parse( $html->guts ); |
22 |
$html->delete; |
$html->delete; |
23 |
|
|
24 |
return $result; |
return $result; |
25 |
} |
} |
26 |
|
|
27 |
sub _parse { |
sub _parse { |
28 |
|
my $self = shift; |
29 |
foreach my $element ( @_ ) { |
foreach my $element ( @_ ) { |
30 |
if ( blessed $element && $element->isa('HTML::Element') ) { |
if ( blessed $element && $element->isa('HTML::Element') ) { |
31 |
my $tag = $element->tag; |
my $tag = $element->tag; |
35 |
} else { |
} else { |
36 |
# plain text |
# plain text |
37 |
warn dump( $element ); |
warn dump( $element ); |
38 |
return _escape( $element ); |
return $self->html_escape( $element ); |
39 |
} |
} |
40 |
} |
} |
41 |
} |
} |
42 |
|
|
|
sub _escape { |
|
|
my $html = shift; |
|
|
$html =~ s/</</; |
|
|
$html =~ s/>/>/; |
|
|
return $html; |
|
|
} |
|
|
|
|
43 |
1; |
1; |