| line |
true |
false |
branch |
|
25
|
1 |
40 |
@$args == 0 ? : |
|
|
6 |
41 |
@$args == 1 && ref $args->[0] ? : |
|
33
|
0 |
157 |
unless exists $spec->{$key} |
|
38
|
2 |
137 |
unless defined $hash->{$key} |
|
41
|
1 |
46 |
if @errors |
|
51
|
0 |
45 |
unless ($string =~ /$guid_re/i) |
|
61
|
0 |
45 |
unless (ref $obj and $obj->isa('Metabase::Resource')) |
|
86
|
5 |
25 |
if ($@) |
|
99
|
46 |
1 |
$_[0] ? : |
|
109
|
35 |
10 |
unless defined $args->{'type'} |
|
112
|
0 |
45 |
if $args->{'type'} ne $class->type |
|
116
|
35 |
10 |
unless defined $args->{'schema_version'} |
|
119
|
0 |
45 |
if $args->{'schema_version'} != $class->default_schema_version |
|
122
|
32 |
13 |
unless (defined $args->{'guid'}) |
|
137
|
10 |
35 |
defined $args->{'valid'} ? : |
|
140
|
7 |
38 |
if defined $args->{'creator'} |
|
165
|
0 |
13 |
if $self->creator |
|
170
|
0 |
13 |
unless ($obj->type eq 'Metabase-Resource-metabase-user') |
|
236
|
0 |
13 |
unless (defined $fact_class) |
|
239
|
1 |
12 |
unless ($fact_class =~ /$class_re/) |
|
242
|
2 |
10 |
unless ($fact_class->can('type')) |
|
243
|
0 |
2 |
unless eval "require $fact_class; 1" |
|
255
|
10 |
5 |
if exists $core->{'creator'} |
|
318
|
0 |
1 |
unless my $struct = eval {
do {
'JSON::MaybeXS'->new('ascii', 1)->decode($string)
}
} |
|
326
|
0 |
1 |
unless open my $fh, '>', $filename |
|
335
|
0 |
1 |
unless open my $fh, '<', $filename |
|
359
|
0 |
15 |
unless defined $type |