| line |
true |
false |
branch |
|
292
|
0 |
1 |
unless $ok |
|
311
|
0 |
0 |
unless $ok |
|
327
|
0 |
0 |
if (_cmp_got_to_exp_warning_like($wrn_rec, $wrn)) |
|
337
|
0 |
0 |
unless $ok |
|
344
|
1 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
349
|
0 |
0 |
$called_from eq 'Carp' ? : |
|
356
|
0 |
0 |
if (ref $exp eq 'HASH') |
|
357
|
0 |
0 |
unless my $to_carp = $exp->{'carped'} |
|
359
|
0 |
0 |
ref $to_carp eq 'ARRAY' ? : |
|
368
|
0 |
0 |
if $got_kind eq 'warn' and $exp_kind eq 'carped' |
|
376
|
0 |
0 |
if $got_kind eq 'warn' and $exp_kind eq 'carped' |
|
377
|
0 |
0 |
if (my $re = $Tester->maybe_regex($exp_msg)) { } |
|
389
|
0 |
1 |
unless scalar @got == scalar @exp |
|
398
|
0 |
0 |
unless scalar @got == scalar @exp |
|
406
|
0 |
0 |
if (ref $_ eq 'HASH') { } |
|
407
|
0 |
0 |
do {
$_
}->{'carped'} ? : |
|
413
|
0 |
0 |
unless @_ |
|
418
|
0 |
0 |
if (ref $_ eq 'HASH') { } |
|
419
|
0 |
0 |
do {
$_
}->{'carped'} ? : |
|
425
|
0 |
0 |
unless @_ |
|
444
|
0 |
0 |
unless my $category_bits = $bits->{$category} |
|
449
|
0 |
0 |
exists $warnings_in_category{$_} ? : |
|
457
|
0 |
0 |
unless my $re = _warning_category_regexp($category) |