| line |
true |
false |
branch |
|
70
|
0 |
0 |
unless $conf_files{$_}++ |
|
157
|
8 |
698 |
unless (@Basset::Object::Conf::ISA) |
|
164
|
0 |
706 |
if (defined $init{'conf_files'} and not ref $init{'conf_files'}) |
|
168
|
0 |
706 |
$init{'conf_files'} ? : |
|
169
|
0 |
706 |
$init{'conf_hash'} ? : |
|
174
|
2118 |
706 |
unless -e $conf_file |
|
176
|
0 |
698 |
if (not $class->loaded->{$conf_file} or -M $conf_file < $class->loaded->{$conf_file} or @_) |
|
182
|
0 |
8 |
unless open $handle, $conf_file |
|
185
|
224 |
112 |
if not defined $line or $line =~ /^\s*#/ or $line =~ /^\s*$/ |
|
187
|
32 |
80 |
if ($line =~ /^define package\s+(\S+)/) |
|
192
|
0 |
80 |
if ($line =~ /^include file\s+(\S+)/) |
|
203
|
0 |
80 |
unless $line =~ /^(?:\s*(\d+)\s*:)?\s*([-+]?\w+)\s*([\@%]?)=\s*(.+)/ |
|
208
|
0 |
80 |
unless (defined $val) |
|
212
|
0 |
80 |
unless (defined $ref) |
|
216
|
0 |
80 |
unless defined $val |
|
218
|
0 |
80 |
if defined $user and $user != $> |
|
220
|
0 |
80 |
if $val eq 'undef' |
|
222
|
0 |
80 |
if defined $val and $val =~ /^\\/ |
|
224
|
0 |
80 |
if ($ref) { } |
|
225
|
0 |
0 |
if ($ref eq '@') { } |
|
|
0 |
0 |
elsif ($ref eq '%') { } |
|
244
|
0 |
8 |
unless (not $class->loaded->{$conf_file}) |
|
245
|
0 |
0 |
unless 'Basset::Object'->can('types') |
|
250
|
8 |
0 |
unless @_ |