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

Text-Microformat documentation Contained in the Text-Microformat distribution.

Index

Code Index:

NAME

Top

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

SEE ALSO

Top

Text::Microformat

AUTHOR

Top

Keith Grennan, <kgrennan at cpan.org>

BUGS

Top

Log bugs and feature requests here: http://code.google.com/p/ufperl/issues/list

SUPPORT

Top

Project homepage: http://code.google.com/p/ufperl/

COPYRIGHT & LICENSE

Top

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.

Text-Microformat documentation Contained in the Text-Microformat distribution. 
package Text::Microformat::Plugin::Parser::XML;
use strict;
use warnings;
use XML::TreeBuilder;

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


1;