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;