| line |
true |
false |
branch |
|
24
|
1 |
2 |
unless $ENV{'hide_warn'}
|
|
41
|
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'}) ? :
|
|
49
|
0 |
3 |
unless ($data_ref->{'report'})
|
|
58
|
3 |
0 |
unless ($data_ref->{'level'})
|
|
67
|
2 |
1 |
unless ($data_ref->{'fail_over'})
|
|
75
|
3 |
0 |
unless ($data_ref->{'carp_stack'})
|
|
88
|
2 |
1 |
if $SIG{'__WARN__'}
|
|
96
|
6 |
4 |
(caller 1)[3] && !((caller 1)[3] =~ /__ANON__/) ? :
|
|
109
|
1 |
6 |
if ($report_count == 0 and $data_ref->{'fail_over'})
|
|
115
|
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"), @_;
} ;
}
|
|
123
|
0 |
0 |
$warn_store ? :
|