2 files changed, 10 insertions, 0 deletions
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 != '']})) {