| line |
true |
false |
branch |
|
325
|
159 |
122 |
unless $ok |
|
344
|
317 |
230 |
unless $ok |
|
360
|
0 |
0 |
if ($exp_idx < @exp_warning and _cmp_got_to_exp_warning_like($wrn_rec, $exp_warning[$exp_idx])) |
|
373
|
0 |
0 |
unless $ok |
|
380
|
521 |
307 |
ref $_[0] eq 'ARRAY' ? : |
|
385
|
2080 |
716 |
$called_from eq 'Carp' ? : |
|
392
|
1088 |
698 |
if (ref $exp eq "HASH") |
|
393
|
12 |
1076 |
unless my $to_carp = $exp->{'carped'} |
|
395
|
390 |
686 |
ref $to_carp eq 'ARRAY' ? : |
|
404
|
1 |
502 |
if $got_kind eq "warn" and $exp_kind eq "carped" |
|
406
|
6 |
496 |
if ($exp_msg =~ /\n$/s) { } |
|
417
|
1 |
984 |
if $got_kind eq "warn" and $exp_kind eq "carped" |
|
418
|
984 |
0 |
if (my $re = $Tester->maybe_regex($exp_msg)) { } |
|
430
|
98 |
183 |
unless scalar @got == scalar @exp |
|
439
|
196 |
351 |
unless scalar @got == scalar @exp |
|
447
|
1490 |
0 |
if (ref $_ eq 'HASH') { } |
|
448
|
1108 |
382 |
do {
$_
}->{'carped'} ? : |
|
454
|
66 |
410 |
unless @_ |
|
459
|
1424 |
0 |
if (ref $_ eq 'HASH') { } |
|
460
|
1064 |
360 |
do {
$_
}->{'carped'} ? : |
|
466
|
66 |
410 |
unless @_ |
|
488
|
0 |
0 |
unless my $category_bits = $bits->{$category} |
|
493
|
0 |
0 |
exists $warnings_in_category{$_} ? : |
|
501
|
0 |
0 |
unless my $re = _warning_category_regexp($category) |