From 261240c20b86254136aa80a6baa58e7b3f8692a8 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 14 Dec 2012 15:20:06 +0000
Subject: logging uris

---
 lib/Feed.pm       | 8 ++++++++
 lib/Feed/Utils.pm | 2 ++
 2 files changed, 10 insertions(+)

(limited to 'lib')

diff --git a/lib/Feed.pm b/lib/Feed.pm
index 26cc26e..118e882 100644
--- a/lib/Feed.pm
+++ b/lib/Feed.pm
@@ -51,6 +51,14 @@ has title => (
     builder => 'extract_title',
 );
 
+sub BUILD {
+    my ($self) = @_;
+
+    Log::Log4perl::MDC->put( uri => $self->uri->as_string );
+
+    return;
+}
+
 sub extract_title {
     my ($self) = @_;
 
diff --git a/lib/Feed/Utils.pm b/lib/Feed/Utils.pm
index 60ea383..48a4dc9 100644
--- a/lib/Feed/Utils.pm
+++ b/lib/Feed/Utils.pm
@@ -69,6 +69,8 @@ sub feeds_from_opml {
     } catch { warn $_; return };
     return unless $opml;
 
+    Log::Log4perl::MDC->put( opml => "$opml_source" );
+
     my @exclude = @{$opts->{exclude} // []};
 
     for my $feed_node ($opml->findnodes(q{/opml/body/outline[@xmlUrl != '']})) {
-- 
cgit v1.2.3