diff options
Diffstat (limited to 'feeder.pl')
-rw-r--r-- | feeder.pl | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -13,7 +13,13 @@ log4perl.appender.Screen.layout = PatternLayout log4perl.appender.Screen.layout.ConversionPattern = [%d{ISO8601}] (%c) %m{chomp}%n LOG -my $feed_class = Feed->with_traits('Printer','FixDateTime','DeDupe'); +my $feed_class = Feed->with_traits( + 'Printer', + 'FixDateTime', + 'DeDupe', + 'AuthorName', +); + sub feed { my (%args) = @_; my $feed = $feed_class->new({ @@ -25,3 +31,5 @@ sub feed { feed(uri=>'http://www.gentoo.org/rdf/en/gentoo-news.rdf'); feed(uri=>'http://feeds2.feedburner.com/sydneypadua/yBZX'); +feed(uri=>'http://oglaf.com/feeds/rss/'); +feed(uri=>'http://feeds.gawker.com/io9/full'); |