feeder.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/env perl 
use strict;
use warnings;
use 5.016;
use Feed;
 
my $feed_class = Feed->with_traits('FixDateTime','Printer');
sub feed {
    my (%args) = @_;
    my $feed = $feed_class->new(%args);
    $feed->process;
}
 
feed(uri=>'http://www.gentoo.org/rdf/en/gentoo-news.rdf');
feed(uri=>'http://feeds2.feedburner.com/sydneypadua/yBZX');