| 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') { } |