File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/news_tvbs_com_tw.pm
Criterion Covered Total %
statement 9 13 69.2
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 18 66.6


line stmt bran cond sub pod time code
1             package NewsExtractor::SiteSpecificExtractor::news_tvbs_com_tw;
2 1     1   8 use utf8;
  1         3  
  1         7  
3 1     1   34 use Moo;
  1         4  
  1         7  
4             extends 'NewsExtractor::GenericExtractor';
5              
6 1     1   337 use Importer 'NewsExtractor::TextUtil' => 'normalize_whitespace';
  1         17  
  1         9  
7              
8             sub journalist {
9 0     0 0   my ($self) = @_;
10 0           my $el = $self->dom->at("div.title h4.font_color5");
11 0           my $txt = $el->all_text;
12 0           return normalize_whitespace($txt);
13             }
14              
15             1;