| line |
true |
false |
branch |
|
62
|
1390 |
56 |
unless $verbose_logger->is_info
|
|
63
|
1 |
55 |
if $self->instance->initial_load
|
|
69
|
2 |
53 |
ref $cmd ? :
|
|
|
0 |
55 |
ref $cmd eq 'ARRAY' ? :
|
|
115
|
0 |
413 |
unless defined $steps
|
|
119
|
0 |
413 |
if (delete $args{'experience'})
|
|
127
|
0 |
413 |
unless $check =~ /yes|no|skip/
|
|
130
|
0 |
413 |
ref $steps ? :
|
|
143
|
12 |
398 |
if ($ret eq "root")
|
|
144
|
1 |
11 |
$caller_is_root ? :
|
|
145
|
0 |
12 |
if ($logger->debug)
|
|
151
|
3 |
395 |
if (@command)
|
|
153
|
0 |
3 |
if ($command[0] =~ m[^/([\w-]+)]) { }
|
|
159
|
1 |
2 |
if $check eq "yes"
|
|
166
|
0 |
397 |
if (%args)
|
|
225
|
2 |
1309 |
if ($leftout)
|
|
254
|
50 |
1365 |
if ($logger->is_debug)
|
|
260
|
0 |
1415 |
if $cmd =~ /^\s*$/
|
|
262
|
23 |
1392 |
if ($cmd eq "!")
|
|
270
|
145 |
1247 |
if ($cmd eq "-")
|
|
272
|
139 |
6 |
if (defined $parent) { }
|
|
281
|
5 |
1242 |
if ($cmd =~ m[^/([\w-]+)])
|
|
283
|
3 |
2 |
if ($node->has_element($search)) { }
|
|
304
|
45 |
1198 |
if ($logger->is_debug)
|
|
305
|
126 |
189 |
defined $_ ? :
|
|
309
|
0 |
4 |
unless (defined $element_name or defined $note)
|
|
316
|
0 |
1243 |
unless (defined $node)
|
|
323
|
0 |
1243 |
unless ($node->isa("Config::Model::Node") or $node->isa("Config::Model::WarpedNode"))
|
|
334
|
4 |
1239 |
if (not defined $element_name and defined $note)
|
|
339
|
6 |
1233 |
unless ($node->has_element($element_name))
|
|
340
|
4 |
2 |
if $check eq "yes"
|
|
348
|
1 |
1232 |
unless ($node->is_element_available("name", $element_name))
|
|
349
|
1 |
0 |
if $check eq "yes"
|
|
357
|
0 |
1232 |
unless ($node->is_element_available("name", $element_name))
|
|
358
|
0 |
0 |
if $check eq "yes"
|
|
370
|
0 |
1232 |
unless defined $method
|
|
377
|
0 |
1222 |
unless defined $ret
|
|
380
|
60 |
1162 |
if ($ret eq "error" or $ret eq "done")
|
|
384
|
0 |
1162 |
if ($ret eq "root" and not $at_top_level)
|
|
408
|
45 |
1135 |
if (defined $note)
|
|
409
|
45 |
0 |
if (defined $target_obj) { }
|
|
431
|
0 |
30 |
if (@left)
|
|
447
|
1372 |
2495 |
if (defined $_)
|
|
450
|
117 |
1255 |
if s/^"// and s/"$//
|
|
461
|
0 |
0 |
if (defined $note and not defined $action and not defined $subaction)
|
|
466
|
17 |
0 |
if (defined $subaction and $subaction eq "=")
|
|
476
|
0 |
0 |
if (not defined $action and defined $subaction)
|
|
484
|
0 |
0 |
defined $action ? :
|
|
488
|
0 |
0 |
unless $_
|
|
560
|
291 |
45 |
unless defined $action and $action ne ":"
|
|
563
|
45 |
0 |
if ($dispatch)
|
|
573
|
2 |
1 |
$before_str =~ s[^/][] && $before_str =~ s[/$][] ? :
|
|
582
|
3 |
3 |
if $content{$one_value}
|
|
622
|
1 |
4 |
if defined $v and $v eq $rm_val
|
|
637
|
1 |
4 |
if defined $v and $v =~ /$rm_val/
|
|
674
|
3 |
10 |
if (defined $note and not defined $action and not defined $subaction)
|
|
679
|
35 |
104 |
if (defined $action and $action eq ":=" and $cargo_type eq "leaf")
|
|
690
|
33 |
0 |
if (not defined $action and defined $subaction and $subaction eq "=" and $cargo_type eq "leaf")
|
|
705
|
31 |
74 |
if (my $dispatch = $self->_get_dispatch($element, "list", $cargo_type, $action, $cmd, @f_args))
|
|
709
|
0 |
74 |
if (not defined $action and defined $subaction)
|
|
718
|
73 |
1 |
if (defined $action and $action eq ":")
|
|
723
|
38 |
35 |
if ($cargo_type =~ /node/)
|
|
730
|
3 |
32 |
unless defined $subaction
|
|
732
|
32 |
0 |
if ($cargo_type =~ /leaf/)
|
|
735
|
32 |
0 |
if $self->_load_value($obj, $check, $subaction, $value, $cmdref, $cmd)
|
|
740
|
0 |
1 |
defined $action ? :
|
|
744
|
6 |
1 |
unless $_
|
|
760
|
4 |
235 |
if (defined $note and not defined $action)
|
|
766
|
1 |
234 |
unless (defined $action)
|
|
769
|
6 |
1 |
unless $_
|
|
775
|
3 |
231 |
if ($action eq ":~" or $action eq ":.foreach_match")
|
|
779
|
2 |
1 |
if $pattern
|
|
780
|
2 |
1 |
$pattern ? :
|
|
781
|
1 |
2 |
if ($logger->is_debug)
|
|
782
|
1 |
0 |
$pattern ? :
|
|
791
|
9 |
2 |
if ($cargo_type =~ /node/) { }
|
|
|
2 |
0 |
elsif ($cargo_type =~ /leaf/) { }
|
|
808
|
0 |
11 |
if ($ret eq "error")
|
|
815
|
14 |
217 |
if (my $dispatch = $self->_get_dispatch($element, "hash", $cargo_type, $action, $cmd, @f_args))
|
|
819
|
0 |
217 |
unless (defined $id)
|
|
830
|
130 |
87 |
if ($action eq ':' and $cargo_type =~ /node/) { }
|
|
|
83 |
4 |
elsif ($action eq ':' and defined $subaction and $cargo_type =~ /leaf/) { }
|
|
|
4 |
0 |
elsif ($action eq ':') { }
|
|
|
0 |
0 |
elsif ($action) { }
|
|
834
|
0 |
130 |
if (defined $subaction)
|
|
847
|
83 |
0 |
if $self->_load_value($obj, $check, $subaction, $value, $cmdref, $cmd)
|
|
874
|
5 |
765 |
if (defined $action and $element->isa("Config::Model::Value"))
|
|
875
|
4 |
1 |
if ($action eq '~') { }
|
|
|
1 |
0 |
elsif ($action eq ':') { }
|
|
898
|
10 |
759 |
unless defined $subaction
|
|
900
|
20 |
739 |
if ($logger->is_debug)
|
|
901
|
20 |
0 |
defined $value ? :
|
|
908
|
757 |
0 |
if $res
|
|
954
|
11 |
2 |
if (defined $orig) { }
|
|
963
|
0 |
11 |
if ($res)
|
|
984
|
0 |
1 |
if ($value eq "-")
|
|
990
|
1 |
0 |
if ($path->is_file) { }
|
|
1005
|
6 |
1 |
ref $data eq 'HASH' ? :
|
|
1017
|
4 |
18 |
if ($new_path->is_file) { }
|
|
|
12 |
6 |
elsif ($new_path->is_dir) { }
|
|
1025
|
2 |
4 |
unless (defined $file)
|
|
1028
|
0 |
2 |
$action ? :
|
|
|
2 |
0 |
$subaction ? :
|
|
1062
|
0 |
884 |
unless ($element->isa("Config::Model::Value"))
|
|
1073
|
884 |
0 |
if ($dispatch) { }
|