| line |
true |
false |
branch |
|
143
|
0 |
1 |
if @_ |
|
145
|
0 |
0 |
unless $flag eq 'readonly' or $flag eq 'create' or $flag eq 'overwrite' or $flag eq 'cleardir' |
|
150
|
0 |
1 |
unless opendir $dir_handle, $dir |
|
170
|
1 |
0 |
unless substr($file, 0, 1) eq '/' |
|
173
|
0 |
1 |
unless -f _ |
|
178
|
0 |
1 |
unless open $handle, "<$file" |
|
196
|
0 |
0 |
unless defined $contents |
|
198
|
0 |
0 |
unless substr($file, 0, 1) eq '/' |
|
202
|
0 |
0 |
if ($flag eq 'readonly') { } |
|
|
0 |
0 |
elsif ($flag eq 'create') { } |
|
|
0 |
0 |
elsif ($flag eq 'overwrite' or $flag eq 'cleardir') { } |
|
203
|
0 |
0 |
if -e _ |
|
207
|
0 |
0 |
if -e _ |
|
210
|
0 |
0 |
if -e _ and not -f _ |
|
215
|
0 |
0 |
unless open $handle, ">$file" |
|
229
|
0 |
0 |
unless substr($file, 0, 1) eq '/' |
|
233
|
0 |
0 |
unless -e _ |
|
237
|
0 |
0 |
if ($flag eq 'readonly' or $flag eq 'create') { } |
|
|
0 |
0 |
elsif ($flag eq 'overwrite' or $flag eq 'cleardir') { } |
|
240
|
0 |
0 |
unless -f _ |
|
245
|
0 |
0 |
unless unlink $file |
|
258
|
0 |
0 |
unless $flag eq 'cleardir' |
|
261
|
0 |
0 |
unless opendir $handle, $dir |
|
262
|
0 |
0 |
if lstat $_ |
|
267
|
0 |
0 |
unless unlink $file |
|
275
|
0 |
0 |
unless substr($file, 0, 1) eq '/' |
|
300
|
0 |
0 |
unless defined $file |
|
301
|
0 |
0 |
if $file eq '.' or $file eq '..' |
|
303
|
0 |
0 |
if -d _ |