| line |
true |
false |
branch |
|
95
|
1 |
14 |
unless defined $args{'name'} |
|
99
|
5 |
9 |
if (exists $args{'dir'}) |
|
100
|
3 |
2 |
if (defined $args{'dir'}) { } |
|
106
|
1 |
4 |
unless -d $dir |
|
112
|
4 |
9 |
defined $dir ? : |
|
116
|
15 |
13 |
if (defined $suffix) { } |
|
117
|
12 |
3 |
unless $name =~ s/(.+\.)(?=.)/"$1$suffix.";/e |
|
123
|
13 |
15 |
if (sysopen $fh, $name, 192) |
|
126
|
0 |
15 |
unless ($! == 17) |
|
129
|
0 |
15 |
if ($counter++ > 10000) |
|
209
|
1 |
14 |
unless defined $args{'name'} |
|
213
|
5 |
9 |
if (exists $args{'dir'}) |
|
214
|
3 |
2 |
if (defined $args{'dir'}) { } |
|
220
|
1 |
4 |
unless -d $dir |
|
226
|
4 |
9 |
defined $dir ? : |
|
230
|
15 |
13 |
if (defined $suffix) { } |
|
231
|
12 |
3 |
unless $name =~ s/(.+\.)(?=.)/"$1$suffix.";/e |
|
237
|
13 |
15 |
if (mkdir $name, 448) |
|
240
|
0 |
15 |
unless ($! == 17) |
|
243
|
0 |
15 |
if ($counter++ > 10000) |