diff options
Diffstat (limited to 'lib/Feed/AuthorName.pm')
-rw-r--r-- | lib/Feed/AuthorName.pm | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/lib/Feed/AuthorName.pm b/lib/Feed/AuthorName.pm deleted file mode 100644 index ae883b2..0000000 --- a/lib/Feed/AuthorName.pm +++ /dev/null @@ -1,30 +0,0 @@ -package Feed::AuthorName; -use Moose::Role; -use 5.016; -use namespace::autoclean; -use Email::Address; -use Try::Tiny; - -requires 'process_entry'; - -before process_entry => sub { - my ($self,$entry) = @_; - - $self->log->trace('before process_entry - begin'); - - my $author = $entry->author; - - return unless $author && $author =~ /\@/; - - try { - my $address = (Email::Address->parse($author))[0]; - if (my $name = $address->name) { - $entry->author($name); - } - }; - - $self->log->trace('before process_entry - end'); -}; - -1; - |