File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/www_nownews_com.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch	0	2	0.0
condition			n/a
subroutine	3	7	42.8
pod	0	4	0.0
total	12	32	37.5

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

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

sub headline {
    my ($self) = @_;
    return $self->dom->at('h3.newsTitle')->text;
}

sub content_text {
    my ($self) = @_;
    my $el = $self->dom->at('div.newsMsg') or return;
    return html2text( $el->to_string );
}

sub dateline {
    my ($self) = @_;
    return reformat_dateline( $self->dom->at('div.newsInfo')->all_text(), '+08:00' );
}

sub journalist {
    my ($self) = @_;
    my ($x) = $self->dom->at('div.newsInfo')->all_text =~ m{^記者(.+)／\S+報導-};
    return $x;
}

1;