| line |
true |
false |
branch |
|
24
|
1 |
40 |
@$args == 0 ? : |
|
|
6 |
41 |
@$args == 1 && ref $$args[0] ? : |
|
31
|
0 |
157 |
unless exists $$spec{$key} |
|
36
|
2 |
137 |
unless defined $$hash{$key} |
|
40
|
1 |
46 |
if @errors |
|
50
|
0 |
45 |
unless ($string =~ /$guid_re/) |
|
60
|
0 |
45 |
unless (ref $obj and $obj->isa('Metabase::Resource')) |
|
85
|
5 |
25 |
if ($@) |
|
98
|
46 |
1 |
$_[0] ? : |
|
107
|
35 |
10 |
unless defined $$args{'type'} |
|
110
|
0 |
45 |
if $$args{'type'} ne $class->type |
|
114
|
35 |
10 |
unless defined $$args{'schema_version'} |
|
117
|
0 |
45 |
if $$args{'schema_version'} != $class->default_schema_version |
|
121
|
32 |
13 |
unless (defined $$args{'guid'}) |
|
136
|
10 |
35 |
defined $$args{'valid'} ? : |
|
139
|
7 |
38 |
if defined $$args{'creator'} |
|
164
|
0 |
13 |
if $self->creator |
|
169
|
0 |
13 |
unless ($obj->type eq 'Metabase-Resource-metabase-user') |
|
235
|
0 |
13 |
unless (defined $fact_class) |
|
238
|
1 |
12 |
unless ($fact_class =~ /$class_re/) |
|
241
|
2 |
10 |
unless ($fact_class->can('type')) |
|
242
|
0 |
2 |
unless eval "require $fact_class; 1" |
|
254
|
10 |
5 |
if exists $$core{'creator'} |
|
317
|
0 |
1 |
unless my $struct = eval {
do {
'JSON'->new->ascii->decode($string)
}
} |
|
325
|
0 |
1 |
unless open my $fh, '>', $filename |
|
334
|
0 |
1 |
unless open my $fh, '<', $filename |
|
358
|
0 |
15 |
unless defined $type |