Branch Coverage

lib/Log/Shiras/TapWarn.pm
Criterion Covered Total %
branch 16 24 66.6


line true false branch
25 1 2 unless $ENV{'hide_warn'}
42 3 0 @passed % 2 == 0 && (exists {@passed}->{'report'} || exists {@passed}->{'level'} || exists {@passed}->{'carp_stack'} || exists {@passed}->{'fail_over'}) ? :
0 3 exists $passed[0] && is_HashRef($passed[0]) && (exists $passed[0]{'report'} || exists $passed[0]{'level'} || exists $passed[0]{'carp_stack'} || exists $passed[0]{'fail_over'}) ? :
50 0 3 unless ($data_ref->{'report'})
59 3 0 unless ($data_ref->{'level'})
68 2 1 unless ($data_ref->{'fail_over'})
76 3 0 unless ($data_ref->{'carp_stack'})
89 2 1 if $SIG{'__WARN__'}
97 6 4 (caller 1)[3] && !((caller 1)[3] =~ /__ANON__/) ? :
110 1 6 if ($report_count == 0 and $data_ref->{'fail_over'})
116 0 3 unless $SIG{'__WARN__'} = sub { $data_ref->{'message'} = [@_]; chomp @{$$data_ref{'message'};}; my $line = (caller 0)[2]; $data_ref->{'name_space'} = (caller 1)[3] && !((caller 1)[3] =~ /__ANON__/) ? (caller 1)[3] : (caller 0)[0]; $data_ref->{'name_space'} .= "::$line"; my $report_count = $switchboard->master_talk($data_ref); if ($report_count == 0 and $data_ref->{'fail_over'}) { warn longmess("This message sent to the report -$data_ref->{'report'}- was approved but found no destination objects to use"), @_; } ; }
124 0 0 $warn_store ? :