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

around extract_entries => sub {
    my ($orig, $self) = @_;

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

    return $entries;
};

1;