1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
package Feed::Printer; use Moose::Role;use 5.016;use namespace::autoclean; requires 'process'; before process => sub { my ($self) = @_; say $self->feed->title;}; sub process_entry { my ($self,$entry) = @_; for my $f (qw(id title link issued modified)) { say " $f:",$entry->$f//'<undef>'; } say '';} 1;