lib/Feed/Printer.pm


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;