File Coverage

blib/lib/Template/Plugin/RSSLite.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	4	50.0
condition	1	2	50.0
subroutine	7	7	100.0
pod	1	1	100.0
total	39	42	92.8

package Template::Plugin::RSSLite;

use 5.006;
use strict;
use warnings;
use base qw( Template::Plugin );
use Template::Plugin;
use XML::RSSLite;

our $VERSION = '0.03';

sub new {
	my $class   = shift;
	my $context = shift;
	my $file = shift || return $class->error("Line ".__LINE__." Usage error, see documenatation for usage information.");
	my $result = {};
	open F, $file or return $class->error("Line ".__LINE__." ".$!);
	my $data = join("",());
	close F;
	XML::RSSLite::parseXML($result,\$data);
#	use Data::Dumper;print Dumper $result;
   	return $class->error("Line ".__LINE__." ".$!) unless ($result->{'rdf:RDF'}{'channel'}{'title'});
	bless $result, $class;
}

1;
__END__