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

use utf8;
use Moo;
sub headline {
my ($self) = @_;
my $el = $self->dom->at("h1.page-title");
return $el->text;
}
sub dateline {
my ($self) = @_;
my $el = $self->dom->at("div.submitted > span");
my $dateline = $el->text;
$dateline =~ s{\A ([0-9]{4})\.([0-9]{2})\.([0-9]{2}) \s+ ([0-9]{2}):([0-9]{2}) \z}{$1-$2-$3T$4:$5:00+08:00}x;
return $dateline;
}
sub journalist {
my ($self) = @_;
my $el = $self->dom->at("div.user-infos > h3 > a");
return $el->text;
}
1;