Branch Coverage

blib/lib/AnyEvent/FTP/Server/Context/Memory.pm
Criterion Covered Total %
branch 61 70 87.1


line true false branch
48 8 114 if &$f()
56 10 39 unless ref $path
57 22 27 unless $path->is_absolute
62 22 27 if $path eq "/"
69 27 1 if $i == -1
70 0 1 if ($i > 1) { }
85 19 0 if (exists $store->{$part} and ref $store->{$part} eq 'HASH') { }
95 18 9 if (exists $store->{$top}) { }
105 4 5 if defined $value
117 4 2 unless $dir->is_absolute
124 6 7 if $i == -1
125 4 3 if ($i > 1) { }
138 4 2 if (ref $self->find($dir) eq 'HASH') { }
160 2 1 if (ref $self->find($dir) eq 'HASH') { }
194 1 2 if (defined $file and not ref $file) { }
1 1 elsif (defined $file) { }
219 5 1 if ($path->basename ne '' and defined $file and ref $file eq 'HASH') { }
221 3 2 if (exists $$file{$path->basename}) { }
248 4 0 if (defined $file and ref $file eq 'HASH') { }
250 2 2 if (exists $$file{$path->basename}) { }
277 4 0 if (defined $file and ref $file eq 'HASH') { }
279 2 2 if (exists $$file{$path->basename}) { }
305 7 1 if (ref $dir eq 'HASH') { }
307 4 3 if (exists $$dir{$path->basename}) { }
334 1 4 unless (defined $from)
344 3 1 if (ref $dir eq 'HASH') { }
346 1 2 if (exists $$dir{$path->basename}) { }
372 4 2 if (defined $file) { }
374 3 1 if (ref $file eq 'HASH') { }
399 0 5 unless (defined $self->data)
408 4 1 if ($dir) { }
411 2 2 if (ref $h eq 'HASH') { }
425 0 1 unless defined $h
432 0 5 if (my $error = $@)
435 0 0 if (eval { do { $error->can('errno') } }) { }