File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/www_bbc_com.pm
Criterion Covered Total %
statement 12 23 52.1
branch 0 4 0.0
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 35 45.7


line stmt bran cond sub pod time code
1             package NewsExtractor::SiteSpecificExtractor::www_bbc_com;
2 1     1   8 use utf8;
  1         2  
  1         7  
3 1     1   34 use Moo;
  1         2  
  1         6  
4             extends 'NewsExtractor::GenericExtractor';
5              
6 1     1   360 use Importer 'NewsExtractor::TextUtil' => 'normalize_whitespace', 'u';
  1         2  
  1         6  
7              
8 1     1   36 use POSIX qw(strftime);
  1         3  
  1         10  
9              
10             sub journalist {
11 0     0 0   my $self = $_[0];
12 0           my $ret;
13 0 0         if (my $el = $self->dom->at('div.story-body > div.byline > span.byline__name')) {
14 0           $ret = $el->text;
15             }
16 0           return $ret;
17             }
18              
19             sub dateline {
20 0     0 0   my $self = $_[0];
21 0           my $dateline;
22 0 0         if (my $el = $self->dom->at('div.date[data-seconds]')) {
23 0           my $epoch = $el->attr("data-seconds");
24 0           $dateline = u(strftime(q(%Y-%m-%dT%H:%M:%S+08:00), gmtime($epoch)));
25             }
26 0           return $dateline;
27             }
28              
29             1;