From bf238eb4266f4c61291b1816cafb4b322d9103e8 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sun, 9 Dec 2012 14:08:58 +0000 Subject: extract author name for email address --- feeder.pl | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'feeder.pl') diff --git a/feeder.pl b/feeder.pl index 5664d4c..8a96805 100644 --- a/feeder.pl +++ b/feeder.pl @@ -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'); -- cgit v1.2.3