File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/www_epochtimes_com.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch	0	2	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	18	44.4

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

sub journalist {
    my ($self) = @_;
    my $text = $self->content_text;
    my ($name) = $text =~ m{（(?:大紀元記者|大纪元记者) (\p{Letter}+?) (?:综合|綜合|编译|編譯)?(?:报导|報導)）}x;

    unless ($name) {
        ($name) = $text =~ m{(?:責任編輯：|责任编辑：)(\p{Letter}+)#\z}x;
    }
    return $name;
}

1;