From dee275ea44030e283beb4e4c3f998c811d262fe3 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 9 Dec 2012 15:53:25 +0000
Subject: utility functions

---
 feeder.pl | 44 ++++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 22 deletions(-)

(limited to 'feeder.pl')

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',
-- 
cgit v1.2.3