File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/www_bbc_com.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	4	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	35	45.7

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

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

use POSIX qw(strftime);

sub journalist {
    my $self = $_[0];
    my $ret;
    if (my $el = $self->dom->at('div.story-body > div.byline > span.byline__name')) {
        $ret = $el->text;
    }
    return $ret;
}

sub dateline {
    my $self = $_[0];
    my $dateline;
    if (my $el = $self->dom->at('div.date[data-seconds]')) {
        my $epoch = $el->attr("data-seconds");
        $dateline = u(strftime(q(%Y-%m-%dT%H:%M:%S+08:00), gmtime($epoch)));
    }
    return $dateline;
}

1;