File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/www_aljazeera_com.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             use utf8;
2 1     1   6 use Moo;
  1         3  
  1         5  
3 1     1   28  
  1         2  
  1         4  
4             extends 'NewsExtractor::JSONLDExtractor';
5              
6             with 'NewsExtractor::Role::ContentTextExtractor';
7              
8             use Importer 'NewsExtractor::TextUtil' => qw(u);
9 1     1   277 use Importer 'HTTP::Date' => qw(parse_date);
  1         2  
  1         6  
10 1     1   30  
  1         1  
  1         4  
11             around dateline => sub {
12             my ($orig) = shift;
13             my $ret = $orig->(@_);
14             my @t = parse_date($ret);
15             return u(sprintf('%04d-%02d-%02dT%02d:%02d:%02d%s', $t[0], $t[1], $t[2], $t[3], $t[4], $t[5], 'Z'));
16             };
17              
18             1;
19