line |
true |
false |
branch |
34
|
34 |
681 |
unless ($self) |
40
|
1 |
714 |
if (@_) |
44
|
0 |
1 |
if ($@) |
50
|
1 |
714 |
if (defined $args{'-level'}) |
53
|
0 |
1 |
if ($args{'-level'} > $LEVEL{'DEBUG'} xor $args{'-level'} < $LEVEL{'FATAL'}) { } |
57
|
0 |
1 |
if ($args{'-class'}) { } |
73
|
0 |
0 |
if (UNIVERSAL::isa($arg, 'CODE')) { } |
87
|
0 |
2626 |
exists $VERBOSE{$pack0up} ? : |
88
|
11 |
2615 |
if ($verbosity >= $LEVEL{$level}) |
90
|
11 |
0 |
if ($filename =~ s/\Q$Bio::NEXUS::Util::Logger::class_dir\E//) { } |
108
|
2626 |
0 |
if (exists $LEVEL{$method}) |
115
|
0 |
0 |
if $prefix |
121
|
0 |
0 |
if (@_) |
124
|
0 |
0 |
if ($@) |
127
|
0 |
0 |
if (defined $opt{'-level'}) |
130
|
0 |
0 |
if ($opt{'-level'} > $LEVEL{'DEBUG'} xor $opt{'-level'} < $LEVEL{'FATAL'}) |
134
|
0 |
0 |
if ($opt{'-class'}) { } |