| line |
true |
false |
branch |
|
74
|
0 |
0 |
if (defined $config{'extra_cluster_file'}) |
|
78
|
0 |
0 |
if (-r $extra) |
|
83
|
0 |
0 |
if $cl and not $config{'clusters'} =~ /\b$cl\b/ |
|
122
|
0 |
0 |
if defined $configfile and -r $configfile |
|
126
|
0 |
0 |
if defined $configfile and -r $configfile |
|
130
|
0 |
0 |
if -r $configfile |
|
134
|
0 |
0 |
if -r $configfile |
|
136
|
0 |
0 |
if $VERBOSE |
|
154
|
0 |
0 |
if /^\s*(#.*)?$/ |
|
157
|
0 |
0 |
unless $cluster =~ /^[\w.]+$/ |
|
163
|
0 |
0 |
unless $m =~ /^[\@\w.]+$/ |
|
169
|
0 |
0 |
unless exists $cluster{$r} |
|
199
|
0 |
0 |
@errors > 1 ? : |
|
219
|
0 |
0 |
if (defined $b) { } |
|
236
|
0 |
0 |
if (@unknown = grep({not exists $cluster{$_};} @clusterexp)) |
|
237
|
0 |
0 |
if $VERBOSE |
|
258
|
0 |
0 |
unless (defined $set and ref $set and $set->isa('Set::Scalar')) |