use
utf8;
use
Moo;
sub
dateline {
my
(
$self
) =
@_
;
my
$el
=
$self
->dom->at(
'td[align=center] > font[style="font-size:14px"]'
) or
return
;
my
@t
=
split
/[^0-9]+/, normalize_whitespace(
$el
->parent->text);
return
u(
sprintf
(
'%04d-%02d-%02dT%02d:%02d:%02d+08:00'
,
$t
[0],
$t
[1],
$t
[2],
$t
[3],
$t
[4],
$t
[5]) );
}
1;