diff options
Diffstat (limited to 'lib/Feed/Printer.pm')
-rw-r--r-- | lib/Feed/Printer.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/Feed/Printer.pm b/lib/Feed/Printer.pm index 5743883..7fd2f65 100644 --- a/lib/Feed/Printer.pm +++ b/lib/Feed/Printer.pm @@ -14,10 +14,15 @@ before process => sub { sub process_entry { my ($self,$entry) = @_; + $self->log->trace('process_entry - begin'); + for my $f (qw(id title link issued modified)) { say " $f:",$entry->$f//'<undef>'; } + say $entry->content->body; say ''; + + $self->log->trace('process_entry - end'); } 1; |