Branch Coverage

blib/lib/Bio/GMOD/Util/Mirror.pm
Criterion Covered Total %
branch 3 86 3.4


line true false branch
25 0 1 unless $host and $path
26 0 1 if ($host =~ /(.+):(.+)/)
34 0 1 if $passive
37 0 0 unless $ftp->login($user, $pass)
39 0 0 if $hash
54 0 0 if defined $_[1]
61 0 0 if defined $_[1]
68 0 0 if defined $_[1]
75 0 0 if @_
79 0 0 if ($$self{'localpath'})
81 0 0 unless chdir $$self{'localpath'}
84 0 0 unless my $type = $self->find_type($self->path)
86 0 0 if $prefix
89 0 0 if ($type eq '-') { }
0 0 elsif ($type eq 'd') { }
98 0 0 if $cd
110 0 0 unless defined $mode
112 0 0 stat $path ? :
113 0 0 if (defined $rtime and defined $rsize and $ltime >= $rtime and $lsize == $rsize)
116 0 0 if $self->verbose
121 0 0 unless $ftp->get($path)
122 0 0 if $mode
131 0 0 unless -d $localpath or mkpath($localpath)
132 0 0 unless chdir $localpath
133 0 0 if $mode == 365
134 0 0 if $mode
138 0 0 unless my $cwd = $ftp->pwd
139 0 0 unless $ftp->cwd($path)
141 0 0 if $self->verbose
144 0 0 unless my($type, $name, $mode) = $self->parse_listing($_)
145 0 0 if $name =~ /^(\.|\.\.)$/
146 0 0 if $type eq 'd'
147 0 0 if $type eq '-'
148 0 0 if $type eq 'l'
151 0 0 unless $ftp->cwd($cwd)
163 0 0 if ($ftp->cwd($path))
176 0 0 if $target =~ m[^/]
177 0 0 if $self->verbose
186 0 0 unless my($type, $mode, $name) = $listing =~ /^([a-z-])([a-z-]{9}) # -rw-r--r-- \s+\d* # 1 (?:\s+\w+){2} # root root \s+\d+ # 312 \s+\w+\s+\d+\s+[\d:]+ # Aug 1 1994 \s+(.+) # welcome.msg $/x
209 0 0 if $mode =~ /[xsS]/
210 0 0 if $mode =~ /w/
211 0 0 if $mode =~ /r/
212 0 0 if $m > 0