| line |
true |
false |
branch |
|
30
|
0 |
40 |
ref $_[0] ? : |
|
46
|
1 |
45 |
unless defined $date |
|
49
|
14 |
31 |
if ($date =~ /^[\d_]+$/ and $date > 5000) { } |
|
|
31 |
0 |
elsif (my($year, $month, $mday, $hour, $min, $sec, $offset) = $date =~ /$RFC3339_RE/) { } |
|
64
|
6 |
25 |
unless (defined $sec) |
|
68
|
5 |
1 |
unless (defined $hour) |
|
72
|
3 |
2 |
unless (defined $mday) |
|
76
|
2 |
1 |
unless (defined $month) |
|
96
|
0 |
31 |
if $@ |
|
99
|
3 |
28 |
if (uc $offset ne "Z" and my($os_dir, $os_hour, $os_min) = $offset =~ /$OFFSET_RE/) |
|
104
|
3 |
0 |
if ($os_dir eq '-') { } |
|
105
|
3 |
0 |
if $os_hour |
|
106
|
2 |
1 |
if $os_min |
|
111
|
0 |
0 |
if $os_hour |
|
112
|
0 |
0 |
if $os_min |
|
117
|
31 |
0 |
if ($epoch > 0) |
|
118
|
31 |
0 |
if $self->epoch($epoch) |
|
145
|
42 |
3 |
if $level < 4 |
|
146
|
40 |
5 |
if $level < 3 |
|
147
|
38 |
7 |
if $level < 2 |
|
148
|
36 |
9 |
if $level < 1 |
|
149
|
38 |
7 |
if $level < 2 |
|
160
|
59 |
45 |
unless @_ |
|
163
|
45 |
0 |
if ($_[0] and $_[0] =~ /^[_\d]+$/) |
|
180
|
39 |
85 |
unless @_ |
|
183
|
85 |
0 |
if (defined $_[0] and grep {$_[0] == $_;} 0..4) |