File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/www_ttv_com_tw.pm
Criterion Covered Total %
statement 9 16 56.2
branch 0 2 0.0
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 25 48.0


line stmt bran cond sub pod time code
1             package NewsExtractor::SiteSpecificExtractor::www_ttv_com_tw;
2 1     1   9 use utf8;
  1         3  
  1         6  
3 1     1   36 use Moo;
  1         2  
  1         6  
4             extends 'NewsExtractor::GenericExtractor';
5              
6 1     1   348 use Importer 'NewsExtractor::TextUtil' => 'u';
  1         4  
  1         8  
7              
8             sub dateline {
9 0     0 0   my ($self) = @_;
10 0 0         my $el = $self->dom->at(".ReportDate > a:nth-child(1)") or return;
11 0           my ($yyyy, $mm, $dd) = split /-/, $el->all_text;
12 0           return u(sprintf('%04d/%02d/%02d', $yyyy, $mm, $dd));
13             }
14              
15             sub journalist {
16 0     0 0   my ($self) = @_;
17 0           my ($name) = $self->content_text =~ m{(記者\s*([^/]+?)\s*/.+?報導)};
18 0           return $name;
19             }
20              
21             1;