blob: 9f7d08a898d3529de28ad0f7cdc72d079f8381f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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;
|