renaming roles

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;
-