File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/www_rti_org_tw.pm

Criterion	Covered	Total	%
statement	9	23	39.1
branch			n/a
condition			n/a
subroutine	3	7	42.8
pod	0	4	0.0
total	12	34	35.2

package NewsExtractor::SiteSpecificExtractor::www_rti_org_tw;
use utf8;
use Moo;
extends 'NewsExtractor::SiteSpecificExtractor';

use Importer 'NewsExtractor::TextUtil' => ('html2text', 'normalize_whitespace', 'reformat_dateline');

sub headline {
    my ($self) = @_;
    my $el = $self->dom->at('.news-detail-box > hgroup:nth-child(1) > h1:nth-child(1)');
    return normalize_whitespace( $el->all_text );
}

sub dateline {
    my ($self) = @_;
    my $el = $self->dom->at('.date');
    my $txt = normalize_whitespace( $el->all_text );
    $txt =~ s/^時間：//;
    return reformat_dateline($txt, '+08:00');
}

sub journalist {
    my ($self) = @_;
    my $el = $self->dom->at('li.source:nth-child(3)');
    return $el->all_text;
}

sub content_text {
    my ($self) = @_;
    my $el = $self->dom->at('.news-detail-box > article:nth-child(4)');
    return html2text( $el->to_string );
}

1;