#!/usr/bin/perl
use YAPE::HTML;
use Data::Dumper;
use warnings;
use strict;
my $content = "
yes a title
yes a body
";
my $parser = YAPE::HTML->new($content);
my $extor = $parser->extract( 'title' => []);
while (my $chunk = $extor->()) {
print Dumper $chunk;
print $/,'>>>>',$chunk->text()->[0]->string(),'<<<<',$/x5;
}
__END__
$VAR1 = bless( {
'TYPE' => 'tag',
'ATTR' => {},
'TAG' => 'title',
'TEXT' => [
bless( {
'TYPE' => 'text',
'TEXT' => '
yes a title
'
}, 'YAPE::HTML::text' )
],
'IMPLIED' => '',
'CLOSED' => 1
}, 'YAPE::HTML::tag' );
>>>>
yes a title
<<<<