blob: 11f8767238e0618bbf6260f443cb4ff61b9abb1e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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; if( $html =~ m{\A[A-Za-z0-9/=+\n-]+\z} ) { try { $entry->content( decode_base64($html) ) }; }; }; 1;
|