| line |
true |
false |
branch |
|
47
|
20 |
1 |
@_ % 2 ? : |
|
49
|
0 |
21 |
unless $name ||= $args{'folder'} |
|
55
|
7 |
14 |
if (-d $filename) |
|
57
|
2 |
5 |
if -d "File::Spec"->catdir($filename, "new") |
|
59
|
5 |
0 |
if (opendir DIR, $filename) |
|
61
|
4 |
1 |
if @f and not grep(/\D/, @f) |
|
65
|
1 |
0 |
if -f "$filename/.mh_sequences" |
|
71
|
1 |
13 |
unless -f $filename |
|
72
|
1 |
12 |
if -z $filename |
|
74
|
0 |
12 |
unless open my $file, "<:raw", $filename |
|
77
|
0 |
12 |
if /^\s*$/ |
|
96
|
0 |
14 |
unless $self->SUPER::writeMessages($args) |
|
98
|
14 |
0 |
if ($self->{'MB_remove_empty'}) |
|
118
|
2 |
18 |
exists $args{'folder'} ? : |
|
121
|
6 |
14 |
exists $args{'folderdir'} ? : |
|
126
|
13 |
7 |
if (ref $thingy) { } |
|
135
|
6 |
14 |
-d $dir ? : |
|
137
|
9 |
11 |
unless opendir DIR, $real |
|
155
|
34 |
14 |
if (-f $entry) { } |
|
|
14 |
0 |
elsif (-d _) { } |
|
156
|
1 |
33 |
if $args{'skip_empty'} and not -s _ |
|
157
|
1 |
32 |
if $args{'check'} and not $class->foundIn($entry) |
|
162
|
3 |
11 |
if ($args{'skip_empty'}) |
|
163
|
0 |
3 |
unless opendir DIR, $entry |
|
166
|
1 |
2 |
unless @sub |
|
190
|
49 |
0 |
ref $thingy ? : |
|
196
|
54 |
34 |
if $real eq "" |
|
198
|
79 |
9 |
if (@parts) |
|
202
|
147 |
3 |
-d $real ? : |
|
204
|
62 |
17 |
-d $real ? : |