blob: 0b4dd728b251bc117aa2bec2d2d7ee34c8b57043 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
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');
|