File Coverage

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

Criterion	Covered	Total	%
statement	12	17	70.5
branch	1	2	50.0
condition	2	6	33.3
subroutine	4	4	100.0
pod	0	1	0.0
total	19	30	63.3

package Text::Microformat::Plugin::Parser::RSS;
use strict;
use warnings;
use HTML::TreeBuilder;

# This plugin parses entity-encoded and CDATA 'description' elements from RSS,
# and inserts them into the tree.
sub parse {
    my $c = shift;
	$c->NEXT::parse(@_); # wait until the XML parser has run
	if ($c->tree and $c->opts->{content_type} =~ /xml/i and $c->tree->root->tag eq 'rss') {
		foreach my $e ($c->tree->look_down(_tag => $c->tag_regex('description'))) {
			my $subtree = $c->html_to_tree($e->as_trimmed_text);
			$e->delete_content;
			$e->push_content($subtree->root->clone);
			$subtree->delete;
		}
	}
}

=head1 NAME

Text::Microformat::Plugin::Parser::RSS - RSS 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;