File Coverage

blib/lib/Text/Microformat/Plugin/Parser/HTML.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	3	3	100.0
pod	0	2	0.0
total	21	27	77.7

package Text::Microformat::Plugin::Parser::HTML;
use HTML::TreeBuilder;

sub html_to_tree {
    my $c = shift;
    my $content = shift;
    my $tree = HTML::TreeBuilder->new;
    while (my ($k,$v) = each %{$c->plugin_opts}) {
        $tree->$k($v) if $tree->can($k);
    }
    $tree->parse_content($content);
    return $tree;
}

sub parse {
    my $c = shift;
    if (!$c->tree and $c->opts->{content_type} =~ /html/i) {
    	$c->tree($c->html_to_tree($c->content));
    }
    return $c->NEXT::parse(@_);
}

=head1 NAME

Text::Microformat::Plugin::Parser::HTML - HTML parser plugin for Text::Microformat

=head1 SEE ALSO

L

=head1 AUTHOR

Keith Grennan, C<<  >>

=head1 BUGS

Log bugs and feature requests here: L

=head1 SUPPORT

Project homepage: L

=head1 COPYRIGHT & LICENSE

Copyright 2007 Keith Grennan, all rights reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

1;