| line |
true |
false |
branch |
|
32
|
2 |
0 |
if (@added) |
|
44
|
0 |
0 |
if UNIVERSAL::can($self, 'param') |
|
50
|
1 |
0 |
$self->param("${prefix}_footer") ? : |
|
51
|
0 |
1 |
unless $footer and ref $footer eq 'ARRAY' and @{$footer;} |
|
56
|
2 |
0 |
if ref $message eq 'ARRAY' and @{$message;} and ref $$message[0] eq "${prefix}::Caller" |
|
57
|
2 |
0 |
if $caller |
|
59
|
1 |
1 |
if (ref $message) { } |
|
65
|
0 |
2 |
if $self->param("${prefix}_code") |
|
80
|
0 |
1 |
if $@ |
|
81
|
0 |
1 |
unless @_ |
|
89
|
0 |
0 |
ref $str ? : |
|
90
|
0 |
0 |
ref $self ? : |
|
92
|
0 |
0 |
unless length $str |
|
93
|
0 |
0 |
unless $ocode |
|
96
|
0 |
0 |
if $@ |
|
99
|
0 |
0 |
if $icode eq undef and $match > 0 |
|
100
|
0 |
0 |
if ($icode eq 'euc') |
|
103
|
0 |
0 |
if not $$ref =~ /^(?:$re_euc)*$/o and $str =~ /^(?:$re_sjis)*$/o |
|
106
|
0 |
0 |
if $icode ne $ocode |