Branch Coverage

File:local/lib/perl5/Test/Warn.pm
Coverage:0.0%

line%coveragebranch
2930TFunless $ok
3120TFunless $ok
3280TFif (_cmp_got_to_exp_warning_like($wrn_rec, $wrn))
3380TFunless $ok
3450TFref $_[0] eq 'ARRAY' ? :
3500TF$called_from eq 'Carp' ? :
3570TFif (ref $exp eq 'HASH')
3580TFunless my $to_carp = $$exp{'carped'}
3600TFref $to_carp eq 'ARRAY' ? :
3690TFif $got_kind eq 'warn' and $exp_kind eq 'carped'
3770TFif $got_kind eq 'warn' and $exp_kind eq 'carped'
3780TFif (my $re = $Tester->maybe_regex($exp_msg)) { }
3900TFunless scalar @got == scalar @exp
3990TFunless scalar @got == scalar @exp
4070TFif (ref $_ eq 'HASH') { }
4080TF${$_;}{'carped'} ? :
4140TFunless @_
4190TFif (ref $_ eq 'HASH') { }
4200TF${$_;}{'carped'} ? :
4260TFunless @_
4450TFunless my $category_bits = $$bits{$category}
4500TFexists $warnings_in_category{$_} ? :
4580TFunless my $re = _warning_category_regexp($category)