diff options
Diffstat (limited to 'lib/Feed/Role/Printer.pm')
-rw-r--r-- | lib/Feed/Role/Printer.pm | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/lib/Feed/Role/Printer.pm b/lib/Feed/Role/Printer.pm new file mode 100644 index 0000000..44b05a8 --- /dev/null +++ b/lib/Feed/Role/Printer.pm @@ -0,0 +1,28 @@ +package Feed::Role::Printer; +use Moose::Role; +use 5.016; +use namespace::autoclean; + +requires 'process'; + +before process => sub { + my ($self) = @_; + + say $self->title; +}; + +sub process_entry { + my ($self,$entry) = @_; + + $self->log->trace('process_entry - begin'); + + for my $f (qw(id author title link issued modified)) { + say " $f:",$entry->$f//'<undef>'; + } + say $entry->content->body; + say ''; + + $self->log->trace('process_entry - end'); +} + +1; |