The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
|
use Importer 'NewsExtractor::TextUtil' => qw( normalize_whitespace ) ; sub journalist {
my ( $self ) = @_ ;
my $text = $self ->tx->result->dom->find( "div.single-post-meta a" )-> map ( 'text' )-> join ( " " ) // '' ;
return normalize_whitespace( "" . $text );
}
1;
|