File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/www_digitimes_com_tw.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch	0	4	0.0
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	28	42.8

package NewsExtractor::SiteSpecificExtractor::www_digitimes_com_tw;
use utf8;
use Moo;
extends 'NewsExtractor::GenericExtractor';

use Importer 'NewsExtractor::TextUtil'  => qw(u);

sub journalist {
    my ($self) = @_;
    my $el = $self->dom->at('li > time') or return;
    $el = $el->parent->previous->at('span > span');
    return $el->all_text;
}

sub dateline {
    my ($self) = @_;
    my $el = $self->dom->at('li > time') or return;

    my @t = $el->all_text =~ m/([0-9]+)/g;
    return u(
        sprintf(
            '%04d-%02d-%02dT%02d:%02d:%02d+08:00',
            $t[0], $t[1], $t[2], 23, 59, 59
        )
    );
}

1;