summaryrefslogtreecommitdiff
path: root/lib/Feed/AuthorName.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Feed/AuthorName.pm')
-rw-r--r--lib/Feed/AuthorName.pm30
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;
-