File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/www_taipeitimes_com.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	23	52.1

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

use Importer 'NewsExtractor::TextUtil' => 'normalize_whitespace';

sub dateline {
    my ($self) = @_;
    my $el = $self->dom->at("meta[property='article:published_time']");
    return "". $el->attr('content');
}

sub journalist {
    my ($self) = @_;
    my $el = $self->dom->at(".name");
    my $txt = $el->text;
    return normalize_whitespace($txt);
}

1;