utility functions

1 files changed, 22 insertions, 22 deletions

diff --git a/feeder.pl b/feeder.pl
index e0bd7ba..40a3f1f 100644
--- a/feeder.pl
+++ b/feeder.pl
@@ -3,6 +3,7 @@ use strict;
 use warnings;
 use 5.016;
 use Feed;
+use Feed::Utils;
 use Log::Log4perl;
 
 Log::Log4perl::init(\<<'LOG');
@@ -13,35 +14,34 @@ log4perl.appender.Screen.layout = PatternLayout
 log4perl.appender.Screen.layout.ConversionPattern = [%d{ISO8601}] (%c) %m{chomp}%n
 LOG
 
-my $feed_class = Feed->with_traits(
+set_feed_class(Feed->with_traits(
     'MailDir',
     'FixDateTime',
     'DeDupe',
     'AuthorName',
-);
-
-sub feed {
-    my (%args) = @_;
-    my $feed = $feed_class->new({
-        dupe_dsn => 'dbi:SQLite:dbname=dedup.db',
-        maildir_base => 'maildir',
-        %args,
-    });
-    $feed->process;
-}
+));
 
-feed(
-    uri=>'http://www.gentoo.org/rdf/en/gentoo-news.rdf',
-    mail_folders => 'Gentoo',
+set_feed_args(
+    dupe_dsn => 'dbi:SQLite:dbname=dedup.db',
+    maildir_base => 'maildir',
 );
-feed(
-    uri=>'http://feeds2.feedburner.com/sydneypadua/yBZX',
-    mail_folders => 'Fun',
+
+feeds_from_opml(
+    {
+        mail_folders => 'Gentoo',
+    },
+    'http://planet.gentoo.org/opml.xml',
 );
-feed(
-    uri=>'http://oglaf.com/feeds/rss/',
-    title=>'Oglaf',
-    mail_folders => 'Fun',
+
+feeds(
+    {
+        mail_folders => 'Fun',
+    },
+    'http://feeds2.feedburner.com/sydneypadua/yBZX',
+    {
+        uri=>'http://oglaf.com/feeds/rss/',
+        title=>'Oglaf',
+    },
 );
 feed(
     uri=>'http://feeds.gawker.com/io9/full',