blob: 61f73be0fdf685fad8c2307cc75e556c370cd4a9 (
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('Feed::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');
|