123456789101112131415 package NewsExtractor::SiteSpecificExtractor::www_upmedia_mg;use utf8;use Moo;extends 'NewsExtractor::GenericExtractor';use Importer 'NewsExtractor::TextUtil' => 'normalize_whitespace';sub journalist { my ($self) = @_; my $el = $self->dom->at("div.author > a"); my $txt = $el->text; return normalize_whitespace($txt);}1;
package
NewsExtractor::SiteSpecificExtractor::www_upmedia_mg;
use
utf8;
Moo;
extends
'NewsExtractor::GenericExtractor'
;
Importer
'NewsExtractor::TextUtil'
=>
'normalize_whitespace'
sub
journalist {
my
(
$self
) =
@_
$el
=
->dom->at(
"div.author > a"
);
$txt
->text;
return
normalize_whitespace(
}
1;