| line |
true |
false |
branch |
|
13
|
1 |
0 |
unless exists $arg{'-path'} |
|
14
|
0 |
1 |
unless defined $arg{'-file'} |
|
16
|
1 |
0 |
unless (-e "$arg{'-path'}/$arg{'-file'}") |
|
17
|
0 |
1 |
unless open NEW, '>', "$arg{'-path'}/$arg{'-file'}" |
|
24
|
0 |
1 |
unless open $fh, '<', "$arg{'-path'}/$arg{'-file'}" |
|
37
|
0 |
0 |
unless -e "$$class{'fpath'}/$$class{'nfile'}" |
|
42
|
0 |
0 |
unless open $fh, '<', "$$class{'fpath'}/$$class{'nfile'}" |
|
75
|
0 |
0 |
if $id eq $param{'-id'} |
|
86
|
0 |
0 |
unless exists $param{'-num'} |
|
91
|
0 |
0 |
$param{'-num'} > @LIST ? : |
|
93
|
0 |
0 |
if exists $param{'-raw'} |
|
111
|
1 |
0 |
unless exists $param{'-id'} |
|
117
|
0 |
1 |
unless open TMP, '>', "$$obj{'fpath'}/$name" |
|
135
|
1 |
0 |
if $test == 1 |
|
149
|
0 |
0 |
unless open TMP, '>', "$$obj{'fpath'}/$name" |
|
154
|
0 |
0 |
if $id ne $param{'-id'} |
|
155
|
0 |
0 |
if ($id eq $param{'-id'}) |
|
181
|
0 |
0 |
unless open TMP, '>', "$$obj{'fpath'}/$name" |
|
186
|
0 |
0 |
if $id eq $param{'-id'} |
|
205
|
0 |
1 |
unless open SEM, '>', "$path/.keep_me" |