package Feed::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;