| blib/lib/Net/FTP/Path/Iter/Dir.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 1 | 3 | 33.3 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 86 | 1 | 0 | 0 | eval { do { $server->cdup; if ($pwd ne $server->pwd) { my $entries = $self->_get_entries("."); ($entry) = grep({$self->name eq $_->{'name'};} @$entries); croak("unable to find attributes for ", $self->path) unless $entry; croak($self->path, ": expected directory, got $entry->{'type'}") unless $entry->{'type'} eq "d"; } else { $entry = {"size", 0, "mtime", 0, "mode", 365, "type", "d", "_has_attrs", 1}; } } } // ($err = $@) |