File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/talk_ltn_com_tw.pm
Criterion Covered Total %
statement 6 9 66.6
branch 0 2 0.0
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 15 53.3


line stmt bran cond sub pod time code
1             package NewsExtractor::SiteSpecificExtractor::talk_ltn_com_tw;
2 1     1   9 use utf8;
  1         2  
  1         8  
3 1     1   36 use Moo;
  1         3  
  1         7  
4             extends 'NewsExtractor::JSONLDExtractor';
5              
6             with 'NewsExtractor::Role::ContentTextExtractor';
7              
8             sub journalist {
9 0     0 0   my ($self) = @_;
10 0 0         my $el = $self->dom->at('div.writer > a:nth-child(1)') or return;
11 0           return $el->attr('data-desc');
12             }
13              
14             1;