The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
|
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;
|