| line |
true |
false |
branch |
|
51
|
0 |
0 |
unless open FILE, '>', $file |
|
64
|
0 |
0 |
unless open FILE, '<', $filename |
|
65
|
0 |
0 |
if (/\b$key\b/) |
|
83
|
0 |
0 |
unless opendir DIRECTORY, $dir |
|
85
|
0 |
0 |
if $file =~ /^\.\.?$/ |
|
90
|
0 |
0 |
if (my($f) = $file =~ /^(.+)$/) |
|
91
|
0 |
0 |
unless unlink $f |
|
94
|
0 |
0 |
unless rmdir $dir |
|
102
|
0 |
0 |
if index $path, '/' |
|
105
|
0 |
0 |
unless $dir |
|
107
|
0 |
0 |
unless -d $tmp |
|
117
|
0 |
0 |
unless mkdir $dir, $mode |
|
130
|
0 |
0 |
if /^($patterns[0]) +<($patterns[1])>\s+/ |
|
131
|
0 |
0 |
if /^?\s+/ |
|
150
|
0 |
0 |
unless open LIST, '<', $file |
|
152
|
0 |
0 |
if /^\#/ |
|
155
|
0 |
0 |
unless $1 |
|
156
|
0 |
0 |
if exists $hash{$1} |
|
165
|
0 |
0 |
unless open KEY, '<', $file |