| line |
true |
false |
branch |
|
55
|
0 |
0 |
if (not @_ % 2) { } |
|
|
0 |
0 |
elsif (@_) { } |
|
57
|
0 |
0 |
unless (defined $args{'status'}) |
|
59
|
0 |
0 |
if (defined $args{$_}) |
|
67
|
0 |
0 |
if (@_ == 1 and UNIVERSAL::isa($_[0], 'DAIA::Availability')) { } |
|
|
0 |
0 |
elsif ($SERVICES{$_[0]} or is_uri($_[0])) { } |
|
77
|
0 |
0 |
unless (defined $args{'status'}) |
|
78
|
0 |
0 |
if (ref $self eq 'DAIA::Available') { } |
|
|
0 |
0 |
elsif (ref $self eq 'DAIA::Unavailable') { } |
|
94
|
0 |
0 |
if (@_ > 0) { } |
|
96
|
0 |
0 |
if ($status) { } |
|
97
|
0 |
0 |
if ($class eq 'DAIA::Unavailable') |
|
104
|
0 |
0 |
if ($class eq 'DAIA::Available') |
|
123
|
0 |
0 |
if $servicetype |
|
127
|
0 |
0 |
if $$self{'href'} |
|
132
|
0 |
0 |
if $$self{'message'} |
|
135
|
0 |
0 |
if $$self{'expected'} |
|
140
|
0 |
0 |
if $$self{'delay'} |
|
146
|
0 |
0 |
if defined $$self{'queue'} |
|
151
|
0 |
0 |
if ($$self{'limitation'}) |
|
166
|
0 |
0 |
if UNIVERSAL::isa($_[0], 'DateTime::Duration') |
|
170
|
0 |
0 |
if ($duration =~ /^(-)?
P
((\d+)Y)?
((\d+)M)?
((\d+)D)?
(
T
((\d+)H)?
((\d+)M)?
(((\d+)(\.(\d+))?)S)?
)?
$/x) { } |
|
184
|
0 |
0 |
unless grep {defined $_;} $year, $mounth, $day, $hour, $min, $sec |
|
188
|
0 |
0 |
$fsec ? : |
|
197
|
0 |
0 |
if $neg |
|
204
|
0 |
0 |
unless UNIVERSAL::isa($duration, 'DateTime::Duration') |
|
206
|
0 |
0 |
unless defined $duration |
|
208
|
0 |
0 |
if $duration->is_zero |
|
217
|
0 |
0 |
if (exists $d{'seconds'} or exists $d{'nanoseconds'}) |
|
218
|
0 |
0 |
exists $d{'nanoseconds'} ? : |
|
221
|
0 |
0 |
$d{'negative'} ? : |
|
222
|
0 |
0 |
if exists $d{'years'} and $d{'years'} > 0 |
|
223
|
0 |
0 |
if exists $d{'months'} and $d{'months'} > 0 |
|
224
|
0 |
0 |
if exists $d{'days'} and $d{'days'} > 0 |
|
225
|
0 |
0 |
if exists $d{$_} |
|
|
0 |
0 |
if grep {$d{$_} > 0 if exists $d{$_};} 'hours', 'minutes', 'seconds' |
|
226
|
0 |
0 |
if exists $d{'hours'} and $d{'hours'} > 0 |
|
227
|
0 |
0 |
if exists $d{'minutes'} and $d{'minutes'} > 0 |
|
228
|
0 |
0 |
if exists $d{'seconds'} and $d{'seconds'} > 0 |
|
236
|
3 |
0 |
unless (UNIVERSAL::isa($dt, 'DateTime')) |
|
238
|
0 |
3 |
unless $dt =~ /^(-?\d\d\d\d+-\d\d-\d\d)(T\d\d:\d\d:\d\d(\.\d+)?)?([+-]\d\d:\d\d|Z)?$/ |
|
242
|
1 |
2 |
if ($time) |
|
246
|
1 |
2 |
if ($tz) |