| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package NewsExtractor::SiteSpecificExtractor::www_fountmedia_io; |
|
2
|
1
|
|
|
1
|
|
8
|
use utf8; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
7
|
|
|
3
|
1
|
|
|
1
|
|
33
|
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; |