| line |
true |
false |
branch |
|
46
|
2 |
0 |
if (not ref $param) { } |
|
|
0 |
0 |
elsif (reftype $param eq 'HASH') { } |
|
69
|
0 |
0 |
if ($$hashref{'datetime_string'}) { } |
|
|
0 |
0 |
elsif ($$hashref{'datetime'}) { } |
|
76
|
0 |
0 |
unless exists $$hashref{'embedded_uri'} |
|
87
|
0 |
200 |
unless defined $str |
|
89
|
200 |
0 |
if ($str =~ /^$re_datetime$/) |
|
92
|
100 |
100 |
if (defined $parts{'time_zone'} and lc $parts{'time_zone'} eq 'z') { } |
|
|
4 |
96 |
elsif (defined $parts{'time_zone'}) { } |
|
100
|
0 |
4 |
if length $parts{'time_zone'} == 3 |
|
104
|
64 |
136 |
if (defined $parts{'second'} and $parts{'second'} > floor($parts{'second'})) |
|
122
|
0 |
0 |
if ($dt->isa('DateTime::Incomplete')) { } |
|
|
0 |
0 |
elsif ($dt->isa('DateTime')) { } |
|
124
|
0 |
0 |
unless $dt->has_year |
|
130
|
0 |
0 |
if ($dt->has_time_zone and $dt->time_zone->is_utc) { } |
|
|
0 |
0 |
elsif ($dt->has_time_zone and $dt->time_zone->is_floating) { } |
|
|
0 |
0 |
elsif ($dt->has_time_zone) { } |
|
138
|
0 |
0 |
$dt->has_month ? : |
|
142
|
0 |
0 |
$dt->has_day ? : |
|
146
|
0 |
0 |
$dt->has_hour && $dt->has_minute ? : |
|
150
|
0 |
0 |
$dt->has_second ? : |
|
154
|
0 |
0 |
$dt->has_nanosecond && $dt->nanosecond > 0 ? : |
|
161
|
0 |
0 |
unless ($dt->time_zone->is_floating or $dt->time_zone->is_utc) |
|
170
|
0 |
0 |
if ($dt->time_zone->is_utc) |
|
185
|
0 |
200 |
if (@_) |
|
188
|
0 |
0 |
unless blessed $dt and $dt->isa('DateTime') || $dt->isa('DateTime::Incomplete') |
|
206
|
0 |
200 |
if (@_) |
|
209
|
0 |
0 |
unless ($skip_check) |
|
211
|
0 |
0 |
unless $dt =~ /^$re_datetime$/ |
|
226
|
0 |
22 |
if (@_) |
|
229
|
0 |
0 |
blessed $uri ? : |
|
247
|
224 |
0 |
if (my(@r) = $$self =~ /
^
(?[A-Za-z][A-Za-z0-9+-]*)
\:
(?$re_datetime)
\:
(?.+)
$
/x) { } |