| line |
true |
false |
branch |
|
113
|
88 |
0 |
if ($string =~ / \A
( ( [0-9]+ ) \s* ( $era_re ) [^0-9]? | # year $1, $2 era $3
[0-9]{4} [^0-9]? |
[0-9]+ [^0-9] )
(?: ( [0-9]{1,2} ) [^0-9]? # month: $4
(?: ( [0-9]{1,2} ) [^0-9]? # day: $5
)?
)?
/gmsx) { } |
|
|
0 |
0 |
elsif ($string =~ / \A
( yesterday | today | tomorrow ) \b [^0-9]? # day: $1
/gimsx) { } |
|
123
|
0 |
88 |
if ($3) { } |
|
128
|
10 |
78 |
if $date[0] < 70 |
|
130
|
0 |
88 |
if $date[0] < 100 |
|
134
|
4 |
84 |
unless defined $date[1] |
|
136
|
12 |
76 |
unless defined $date[2] |
|
154
|
68 |
20 |
if ($string =~ / \G
( [0-9]{1,2} ) [^0-9+-]? # hour: $1
(?: ( [0-9]{1,2} ) [^0-9+-]? # minute: $2
(?: ( [0-9]{1,2} ) [^0-9+-]? # second: $3
( [0-9]* ) # fract: $4
)?
)?
/cgmsx) { } |
|
162
|
0 |
68 |
$4 ? : |
|
169
|
56 |
32 |
if not $special_only and $string =~ / \G (?<= [^0-9] ) /cgmsx |
|
175
|
0 |
88 |
unless defined $offset |
|
185
|
88 |
0 |
if defined $zone |
|
188
|
27 |
0 |
unless $self->{$package}{'tz'} |
|
|
27 |
61 |
unless $zone |
|
189
|
61 |
0 |
if ($zone =~ / \A $zone_re \z /mosx) { } |
|
190
|
56 |
5 |
if $1 |
|
193
|
3 |
2 |
unless $2 and "-" eq $2 |
|
201
|
0 |
0 |
if "DateTime::TimeZone"->is_valid_name($zone) |
|
204
|
0 |
0 |
if $fatal |
|
212
|
7 |
0 |
if (@args) |
|
213
|
0 |
7 |
if (defined $args[0] and $args[0] ne '') { } |
|
225
|
0 |
0 |
if defined $cls |