File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/www_fountmedia_io.pm
Criterion Covered Total %
statement 6 12 50.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 16 50.0


line stmt bran cond sub pod time code
1             package NewsExtractor::SiteSpecificExtractor::www_fountmedia_io;
2 1     1   8 use utf8;
  1         3  
  1         7  
3 1     1   36 use Moo;
  1         2  
  1         6  
4             extends 'NewsExtractor::GenericExtractor';
5              
6             sub dateline {
7 0     0 0   my ($self) = @_;
8 0           my $dom = $self->dom;
9 0           my $el_date = $dom->at("div.detitle2 > div.cell > div");
10 0           my $el_time = $dom->at("div.detitle2 > div.cell.time");
11 0           my $dateline = ($el_date->text =~ s/\./-/gr) . "T" . ($el_time->text =~ s/[ap]m/:00+08:00/r);
12 0           return $dateline;
13             }
14              
15             1;