Condition Coverage

blib/lib/Net/FTP/Tiny.pm
Criterion Covered Total %
condition 0 24 0.0


and 3 conditions

line !l l&&!r l&&r condition
184 0 0 0 $port >= 1 and $port <= 65535
279 0 0 0 $pasv eq 'PASV' and $r =~ /\A227 .*?($d8_rx(?:,$d8_rx){5})(?![0-9])/so
0 0 0 $pasv eq 'EPSV' and $r =~ /\A229 .*?\(([!-~])\1\1([0-9]+)\1\)/s
320 0 0 0 $conn->peerhost eq $require_peerhost and $conn->peerport == $require_peerport
346 0 0 0 $r =~ /\A331/ and exists $params{'password'}

or 3 conditions

line l !l&&r !l&&!r condition
156 0 0 0 eval { do { local $SIG{'__DIE__'}; require IO::Socket::IP; 'IO::Socket::IP'->VERSION(0.08); 'IO::Socket::IP' } } || do { require IO::Socket::INET; 'IO::Socket::INET'->VERSION(1.24); 'IO::Socket::INET' }
0 0 0 $socket_class ||= eval { do { local $SIG{'__DIE__'}; require IO::Socket::IP; 'IO::Socket::IP'->VERSION(0.08); 'IO::Socket::IP' } } || do { require IO::Socket::INET; 'IO::Socket::INET'->VERSION(1.24); 'IO::Socket::INET' }
165 0 0 0 &_socket_class()->new(@_) || do { my $err = $@; chomp $err; $err =~ s/\AIO::Socket::[A-Z0-9]+: //; $err = "$socket_class didn't say why" unless $err ne ''; &_croak("failed to ${what}: $err") }