| line |
true |
false |
branch |
|
20
|
4 |
0 |
if ($^V >= "version"->declare("v5.16.0")) |
|
87
|
12 |
19 |
unless ($class->defined_instance) |
|
99
|
31 |
14 |
exists $_instances{$class} && $_instances{$class}->isa($class) ? : |
|
106
|
12 |
0 |
if ($class->defined_instance) |
|
108
|
12 |
0 |
if ($class->can("_cleanup_instance")) |
|
149
|
768 |
0 |
$can_fc ? : |
|
158
|
0 |
12 |
unless ($class->isa(__PACKAGE__)) |
|
159
|
0 |
0 |
ref $class ? : |
|
165
|
10 |
2 |
if (scalar @params > 0) |
|
166
|
0 |
10 |
if (ref $params[0] eq 'HASH') { } |
|
175
|
10 |
2 |
exists $obj{'_config'}{'search_path'} ? : |
|
176
|
9 |
3 |
exists $obj{'_config'}{'file_name'} ? : |
|
178
|
11 |
0 |
if (-r "$search_dir/$file_name") |
|
186
|
11 |
1 |
if (defined $osrelease_path) |
|
192
|
11 |
0 |
if (open my $fh, "<", $osrelease_path) |
|
195
|
0 |
134 |
if (substr($line, -1, 1) eq "\r") |
|
200
|
0 |
134 |
if ($line =~ /^ \s+ #
/x or $line =~ /^ \s+ $/x) |
|
205
|
35 |
2 |
if ($line =~ /^ ([A-Z0-9_]+) = "(.*)" $/x or $line =~ /^ ([A-Z0-9_]+) = '(.*)' $/x or $line =~ /^ ([A-Z0-9_]+) = (.*) $/x) |
|
209
|
0 |
132 |
if $1 eq "_config" |
|
231
|
1098 |
18 |
ref $coo ? : |
|
241
|
0 |
12 |
unless ($self->isa(__PACKAGE__)) |
|
260
|
2 |
2 |
unless ($self->has_config("platform")) |
|
261
|
1 |
1 |
if ($self->has_attr("id")) |
|
264
|
1 |
1 |
if ($self->has_attr("id_like")) |
|
266
|
0 |
1 |
if ($self->has_config("common_id")) |
|
268
|
0 |
0 |
ref $cids eq 'ARRAY' ? : |
|
276
|
1 |
0 |
if (exists $common_id{$like}) |
|
284
|
1 |
1 |
unless ($self->has_config("platform")) |
|
297
|
1 |
0 |
if (exists $self->{'_config'}{'osrelease_path'}) |
|
316
|
108 |
2 |
exists $$self{fold_case($key)} ? : |
|
332
|
5 |
6 |
exists $self->{'_config'}{$key} ? : |
|
340
|
3 |
4 |
if (defined $value) |
|
357
|
0 |
420 |
if $std_attr eq "_config" |
|
370
|
420 |
0 |
ref $self ? : |
|
374
|
12 |
408 |
unless (exists $self->{'_config'}{'accessor'}) |
|
379
|
119 |
301 |
if (exists $self->{$name}) { } |
|
399
|
420 |
0 |
ref $self ? : |
|
400
|
420 |
0 |
if (exists $self->{'_config'}{'accessor'}{$name}) |