| line |
true |
false |
branch |
|
28
|
0 |
13 |
if @_ % 2 |
|
45
|
0 |
13 |
exists $args->{'inferiors'} ? : |
|
55
|
43 |
21 |
@_ && defined $_[0] ? : |
|
57
|
22 |
42 |
unless my $parent = $self->parent |
|
65
|
0 |
77 |
if @_ |
|
66
|
25 |
52 |
if defined $self->{'MBI_location'} |
|
69
|
0 |
52 |
unless (defined $parent) |
|
82
|
75 |
147 |
if defined $self->{'MBI_ftype'} |
|
85
|
0 |
147 |
unless (defined $parent) |
|
97
|
1 |
0 |
if $self->{'MBI_manager'} |
|
98
|
0 |
0 |
unless my $parent = $self->parent |
|
106
|
4 |
7 |
unless my $parent = $self->parent |
|
114
|
0 |
1 |
if @_ |
|
115
|
1 |
0 |
if exists $self->{'MBI_only_subs'} |
|
116
|
0 |
0 |
$self->parent ? : |
|
123
|
0 |
0 |
@_ ? : |
|
130
|
0 |
1 |
@_ ? : |
|
137
|
0 |
0 |
@_ ? : |
|
146
|
3 |
29 |
wantarray ? : |
|
|
32 |
22 |
if defined $subs |
|
150
|
22 |
0 |
if (my $location = $self->location) { } |
|
157
|
0 |
0 |
defined $mgr ? : |
|
164
|
18 |
4 |
unless @subs |
|
173
|
2 |
2 |
wantarray ? : |
|
184
|
8 |
22 |
unless @_ and defined $_[0] |
|
186
|
1 |
21 |
unless my $subs = $self->subfolders |
|
187
|
2 |
19 |
unless my $nest = $subs->find(shift()) |
|
204
|
16 |
8 |
unless my $subs = $self->subfolders |
|
215
|
0 |
1 |
if (defined $subs) { } |
|
|
0 |
1 |
elsif (not $self->inferiors) { } |
|
235
|
0 |
2 |
unless (defined $parent) |
|
240
|
1 |
1 |
unless @_ |
|
244
|
0 |
1 |
unless my $subs = $self->subfolders |
|
252
|
0 |
1 |
unless defined $newname |