| line |
true |
false |
branch |
|
131
|
25 |
26 |
if ($class eq 'Devel::Deprecations::Environmental') { } |
|
135
|
17 |
10 |
ref $args[0] ? : |
|
143
|
1 |
26 |
unless $plugin->isa("Devel::Deprecations::Environmental") |
|
145
|
1 |
26 |
unless $plugin->can("reason") |
|
147
|
1 |
26 |
unless $plugin->can("is_deprecated") |
|
151
|
1 |
26 |
if @errors |
|
164
|
21 |
19 |
&blessed($args->{$_}) ? : |
|
174
|
0 |
25 |
if (grep {&blessed($_) eq "DateTime";} map({$_froms{$_};} grep({exists $_froms{$_};} "fatal_from", "unsupported_from", "warn_from"))) |
|
182
|
0 |
0 |
if exists $_froms{$_} |
|
191
|
3 |
51 |
if (exists $_froms{$pair->[0]} and exists $_froms{$pair->[1]} and not $_froms{$pair->[0]} < $_froms{$pair->[1]}) |
|
199
|
16 |
4 |
if ($class->is_deprecated($args)) |
|
202
|
2 |
14 |
if ($_froms{'fatal_from'} and $_froms{'fatal_from'} < $now) { } |
|
|
2 |
12 |
elsif ($_froms{'unsupported_from'} and $_froms{'unsupported_from'} < $now) { } |
|
|
10 |
2 |
elsif ($_froms{'warn_from'} < $now) { } |
|
238
|
1 |
9 |
$args{'date'} ? : |