diff options
| -rw-r--r-- | lib/Feed/Role/UnBase64.pm | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/lib/Feed/Role/UnBase64.pm b/lib/Feed/Role/UnBase64.pm index 943d066..9f7d08a 100644 --- a/lib/Feed/Role/UnBase64.pm +++ b/lib/Feed/Role/UnBase64.pm @@ -5,19 +5,14 @@ use namespace::autoclean; use MIME::Base64; use Try::Tiny; -around extract_entries => sub { - my ($orig, $self) = @_; +before process_entry => sub { + my ($self, $entry) = @_; - my $entries = $self->$orig(); - - for my $entry (@{ $entries }) { - my $html= $entry->content->body; - if( $html =~ m{\A[A-Za-z0-9/=-]+\z} ) { - try { $entry->content( decode_base64($html) ) }; - }; + my $html = $entry->unified_content->body or return; + $self->log->warn(">>$html<<"); + if( $html =~ m{\A[A-Za-z0-9/=+\n-]+\z} ) { + try { $entry->content( decode_base64($html) ) }; }; - - return $entries; }; 1; |