| line |
true |
false |
branch |
|
216
|
2 |
24 |
unless $ENV{'HARNESS_ACTIVE'} |
|
217
|
1 |
23 |
if $ENV{'PERL_DEVEL_DEPRECATE_OFF'} |
|
218
|
1 |
22 |
if (@_ % 2) |
|
222
|
2 |
20 |
unless (exists $arg_for{'reason'}) |
|
226
|
4 |
16 |
if (exists $arg_for{'if'}) |
|
229
|
2 |
2 |
if ('CODE' eq (reftype $should_deprecate || '')) |
|
230
|
1 |
1 |
unless &$should_deprecate(\%arg_for) |
|
232
|
1 |
2 |
unless $should_deprecate |
|
245
|
2 |
14 |
if $should_die |
|
247
|
11 |
5 |
if $should_warn |
|
248
|
2 |
14 |
if $should_die |
|
253
|
4 |
13 |
unless my $warn = _date($$args{'warn'}) |
|
254
|
8 |
5 |
unless my $die = _date($$args{'die'}) |
|
255
|
1 |
4 |
if ($die <= $warn) |
|
262
|
4 |
12 |
unless defined $date |
|
268
|
9 |
7 |
unless defined $date |
|
274
|
38 |
57 |
unless defined $date |
|
275
|
46 |
11 |
if blessed $date and $date->isa('DateTime') |
|
276
|
10 |
1 |
if ($date =~ /\A(\d\d\d\d)-(\d\d)-(\d\d)\z/) |
|
308
|
4 |
7 |
if ($die) |
|
340
|
2 |
0 |
if ($die) |