| line |
true |
false |
branch |
|
19
|
0 |
3 |
unless defined $arg |
|
22
|
0 |
3 |
unless my $resolved = Cwd::abs_path($arg) |
|
23
|
0 |
3 |
unless -d $resolved |
|
33
|
3 |
13 |
unless (defined $$self{'_data_'}{'abs_path'}) |
|
35
|
0 |
3 |
unless defined $$self{'abs_path'} |
|
36
|
0 |
3 |
unless $self->set_abs_path($$self{'abs_path'}) |
|
65
|
2 |
1 |
unless ($$self{'_data_'}{'subscribed_groups'}) |
|
67
|
0 |
2 |
unless opendir DIR, $self->abs_path |
|
69
|
0 |
2 |
unless closedir DIR |
|
79
|
0 |
4 |
unless defined $name |
|
81
|
4 |
0 |
unless ($$self{'_data'}{'group_objects'}{$name}) |
|
84
|
0 |
4 |
unless $$self{'_data'}{'group_objects'}{$name}->set_abs_path($self->abs_path . '/' . $name) |