| line |
true |
false |
branch |
|
36
|
0 |
20 |
$uc_only ? :
|
|
54
|
7 |
4 |
unless ref $self
|
|
57
|
11 |
0 |
unless $self->[4]
|
|
60
|
10 |
1 |
$str =~ s/^([0-9]{4})-([0-9]{2})-([0-9]{2})// ? :
|
|
|
1 |
10 |
unless my($Y, $M, $D) = $str =~ s/^([0-9]{4})-([0-9]{2})-([0-9]{2})// ? (0 + $1, 0 + $2, 0 + $3) : ()
|
|
63
|
0 |
10 |
unless $str =~ s/^$self->[3]//
|
|
66
|
9 |
1 |
$str =~ s/^([0-9]{2}):([0-9]{2}):([0-9]{2})// ? :
|
|
|
1 |
9 |
unless my($h, $m, $s) = $str =~ s/^([0-9]{2}):([0-9]{2}):([0-9]{2})// ? (0 + $1, 0 + $2, 0 + $3) : ()
|
|
69
|
1 |
8 |
$str =~ s/^\.([0-9]{1,9})[0-9]*// ? :
|
|
72
|
8 |
1 |
if ($str =~ s/^Z//) { }
|
|
|
0 |
1 |
elsif ($str =~ s/^([+-])([0-9]{2}):([0-9]{2})//) { }
|
|
76
|
1 |
7 |
unless $str =~ /^\z/
|
|
97
|
5 |
15 |
unless ref $self
|
|
101
|
20 |
0 |
unless ($format)
|
|
105
|
0 |
20 |
if $sep eq "%"
|
|
107
|
10 |
10 |
if (defined $decimals) { }
|
|
108
|
9 |
1 |
if ($decimals) { }
|
|
114
|
1 |
9 |
if ($dt->nanosecond) { }
|
|
123
|
16 |
4 |
if ($dt->time_zone->is_utc) { }
|
|
131
|
2 |
2 |
$secs < 0 ? :
|
|
134
|
1 |
3 |
if ($secs) { }
|