The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use utf8;
use Moo;
use Importer 'NewsExtractor::TextUtil' => 'normalize_whitespace';
sub dateline {
my ($self) = @_;
my $el = $self->dom->at("meta[property='article:published_time']");
return "". $el->attr('content');
}
sub journalist {
my ($self) = @_;
my $el = $self->dom->at(".name");
my $txt = $el->text;
return normalize_whitespace($txt);
}
1;