File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/www_setn_com.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	27	44.4

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

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

sub journalist {
    my ($self) = @_;
    my $content_text = $self->content_text;

    my @patterns = (
        qr{\b記者\s*([\p{Letter}、]+?)\s*／\s*(?:\p{Letter}+?)報導\b},
        qr{\b文／([\p{Letter}、]+)\b},
        qr{\b (?:三立準氣象 | \p{Letter}{2} 中心) ／ (\p{Letter}+?) 報導\b}x,
        qr{\b健康醫療網記者(\p{Letter}+?)/報導\n}x,
        qr{\b助理編輯／(\p{Letter}+?)\n}x
    );

    my $name;

    for my $pat (@patterns) {
        ($name) = $content_text =~ $pat;
        last if defined $name;
    }

    return $name && normalize_whitespace($name);
}

1;