line |
true |
false |
branch |
64
|
105 |
0 |
if ($self->can($field)) |
66
|
52 |
53 |
exists $args{$field} ? : |
67
|
0 |
105 |
if (ref($curval) =~ /ARRAY/) { } |
|
0 |
105 |
elsif (ref($curval) =~ /HASH/) { } |
79
|
0 |
15 |
unless my $shellobj = $self->_get_shell |
82
|
3 |
12 |
if (defined $self->file) |
88
|
13 |
2 |
if $self->auto_run |
102
|
0 |
15 |
unless (defined $command) |
113
|
10 |
4 |
if ($self->auto_import) |
114
|
1 |
9 |
if ($self->import_filter) { } |
135
|
0 |
12 |
unless (defined $self->result) |
140
|
0 |
12 |
if (ref $_[0]) { } |
|
2 |
10 |
elsif (@_) { } |
151
|
1 |
34 |
unless $import{$var} |
155
|
13 |
21 |
unless $self->$fn |
176
|
0 |
2 |
unless (ref $filter) |
180
|
0 |
2 |
unless (defined $self->result) |
188
|
3 |
3 |
unless &$filter($var, $newval, $type) |
210
|
0 |
0 |
unless (defined $self->result) |
235
|
0 |
86 |
if $self->debuglevel >= $level |
260
|
0 |
15 |
if $@ |
263
|
0 |
15 |
unless ($shellobj = $shellclass->new('debuglevel', $self->debuglevel)) |
285
|
4 |
20 |
if ($type eq 'removed') { } |