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 $text = $self->content_text;
my ($ymd) = $text =~ m{ ( [0-9]{4}/[0-9]{1,2}/[0-9]{1,2} ) \)?\z}x;
return $ymd ? reformat_dateline( $ymd, '+08:00' ) : undef;
}
1;