File Coverage

blib/lib/Libertatea/RSSreader.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	17	19	89.4

package Libertatea::RSSreader;

use 5.010;
use strict;
use warnings;
use utf8;
use XML::Feed;
use Carp;

require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw() ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw(Libertatea);

our $VERSION = '0.01';

sub Libertatea {
	my $feed = XML::Feed->parse(URI->new('http://www.libertatea.ro/rss.html'))
		or die XML::Feed->errstr;
	# Linia scrie outputul cu codarea literelot romanesti
	open FILE, ">:utf8", "libertatea.txt" or die $!;
	print FILE "--------------------".$feed->title."-----------------------\n";
	for my $entry ($feed->entries) {
		print FILE "TITLUL: ".$entry->title, "\n";
		#print "SUMAR: ".$entry->summary,"\n";
		print FILE  "LINK: ".$entry->link, "\n\n";
		#print "-----------------------------------------------------\n";
		#print $entry->base, "\n";
	}
	close FILE;
}
1;
__END__