The Perl Toolchain Summit 2025 Needs You: You can help πŸ™ Learn more

use utf8;
use Moo;
use Importer 'NewsExtractor::TextUtil' => qw(reformat_dateline);
sub dateline {
my ($self) = @_;
my $el = $self->dom->at('#share0') or return;
$el = $el->next() or return;
my ($x) = $el->all_text =~ m/η™Όδ½ˆζ—₯期:\s+(\S+?)\s+θ§€ηœ‹ζ¬‘ζ•Έ/sm;
$x or return;
return reformat_dateline($x, '+08:00');
}
1;