package Feed::Role::UnBase64;
use Moose::Role;
use 5.012;
use namespace::autoclean;
use MIME::Base64;
use Try::Tiny;

before process_entry => sub {
    my ($self, $entry) = @_;

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

1;