| line |
true |
false |
branch |
|
15
|
1 |
0 |
if ref $_[0] eq 'HASH' |
|
24
|
35 |
16 |
unless exists $$opts{$key} |
|
27
|
0 |
18 |
defined $$opts{'quiet'} ? : |
|
28
|
0 |
0 |
if $quiet and @_ and substr($_[0], 0, 31) eq 'Using Devel::Messenger version ' |
|
33
|
1 |
17 |
if (defined $$opts{'output'} and ref $$opts{'output'}) { } |
|
|
1 |
16 |
elsif (not defined &{"Devel::Messenger::$output";}) { } |
|
41
|
6 |
12 |
defined $$opts{'level'} && $$opts{'level'} =~ /^\d$/ ? : |
|
46
|
2 |
16 |
if ($pkgname) { } |
|
|
1 |
15 |
elsif ($linenum) { } |
|
47
|
1 |
1 |
if ($linenum) { } |
|
61
|
17 |
23 |
if ref $_[0] eq 'HASH' |
|
62
|
3 |
20 |
ref $_[0] eq 'SCALAR' ? : |
|
63
|
0 |
23 |
if $output eq '_none' |
|
64
|
1 |
22 |
if $debug > $level and $level |
|
66
|
2 |
20 |
if @Devel::Messenger::trap and $output ne '_trap' |
|
69
|
1 |
21 |
if (@message and $message[0] eq 'continue') |
|
73
|
2 |
20 |
unless @message |
|
74
|
3 |
17 |
if substr($end, -1, 1) eq "\n" |
|
75
|
3 |
17 |
$pre ? : |
|
78
|
0 |
18 |
if ($global) |
|
83
|
0 |
0 |
if (defined &{"${module}::note";}) |
|
91
|
3 |
15 |
if @_ or @Devel::Messenger::trap and $output ne '_trap' |
|
106
|
2 |
0 |
$package eq 'main' ? : |
|
115
|
4 |
14 |
if (ref $_[0] eq 'ARRAY') { } |
|
127
|
1 |
0 |
if (open NOTE, ">>$file") { } |
|
144
|
0 |
12 |
if wantarray |