Condition Coverage

blib/lib/Net/FTPSSL.pm
Criterion Covered Total %
condition 0 593 0.0


and 3 conditions

line !l l&&!r l&&r condition
227 0 0 0 $debug and defined $arg->{'DebugLogFile'}
229 0 0 0 ref $arg->{'DebugLogFile'} eq '' && $arg->{'DebugLogFile'} ne ''
265 0 0 0 -f $f and $open_mode ne '>>'
309 0 0 0 $encrypt_mode ne 'I' and $encrypt_mode ne 'E'
0 0 0 $encrypt_mode ne 'I' and $encrypt_mode ne 'E' and $encrypt_mode ne 'C'
314 0 0 0 $data_prot ne 'C' and $data_prot ne 'S'
0 0 0 $data_prot ne 'C' and $data_prot ne 'S' and $data_prot ne 'E'
0 0 0 $data_prot ne 'C' and $data_prot ne 'S' and $data_prot ne 'E' and $data_prot ne 'P'
321 0 0 0 $ipv6 and defined $domain
361 0 0 0 $ipv6 and defined $domain
425 0 0 0 $type->can('can_client_sni') and $type->can_client_sni
543 0 0 0 exists do { *$obj }->{'_SSL_arguments'}{$key} and not exists $ssl_reuse{$key}
574 0 0 0 defined $user and $user ne ''
579 0 0 0 $self->_user($user) && $self->_passwd($pass)
597 0 0 0 $arg->{'debug'} and $arg->{'debug_extra'}
608 0 0 0 $arg->{'FixPutTs'} and not $self->supported('MFMT')
611 0 0 0 $arg->{'FixGetTs'} and not $self->supported('MDTM')
639 0 0 0 do { *$self }->{'_FTPSSL_arguments'}{'dcsc_mode'} != 2 and do { *$self }->{'_FTPSSL_arguments'}{'dcsc_mode'} != 3
800 0 0 0 $ftps_ref->{'data_prot'} eq 'C' and exists $ftps_ref->{'myProxyArgs'}
849 0 0 0 $ftps_ref->{'data_prot'} eq 'P' and exists $ftps_ref->{'myContext'}
854 0 0 0 $self->can('can_client_sni') and $self->can_client_sni
929 0 0 0 defined $c && $c eq 'Net::FTPSSL::nlst'
1120 0 0 0 $diff == -1 and $cr_only
1243 0 0 0 defined $c && $c eq 'Net::FTPSSL::xget'
1249 0 0 0 $rest and $self->_retr($file_rem)
1255 0 0 0 $offset and $rest
1315 0 0 0 $trace_flag and $cnt % 10 == 0
1373 0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'}
0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm
1384 0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'}
0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm
1426 0 0 0 do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm
1460 0 0 0 defined $c and $c eq 'Net::FTPSSL::xput' || $c eq 'Net::FTPSSL::xtransfer'
1540 0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'}
0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm
1653 0 0 0 defined $c && $c eq 'Net::FTPSSL::xtransfer'
1672 0 0 0 $restart and $response
1673 0 0 0 $restart and $offset
1689 0 0 0 $rest and $self->_retr($remote_file)
1690 0 0 0 $offset and $rest
1723 0 0 0 $trace_flag and $cnt % 10 == 0
1745 0 0 0 $trail and $len > 0
1767 0 0 0 $cb_idx == 1 and $sArg->{'FixGetTs'}
0 0 0 $cb_idx == 1 and $sArg->{'FixGetTs'} and $dArg->{'FixPutTs'}
1844 0 0 0 $resp and $sArg->{'FixGetTs'}
0 0 0 $resp and $sArg->{'FixGetTs'} and $dArg->{'FixPutTs'}
1897 0 0 0 $self->_isa_glob($file_loc) and not $file_rem
1914 0 0 0 $offset and $func ne 'put'
0 0 0 $offset and $func ne 'put' and $func ne 'append'
1967 0 0 0 $close_file and -f $file_loc
1990 0 0 0 $restart and $response
1992 0 0 0 $restart and $offset
0 0 0 $restart and $offset and $func eq 'get'
2035 0 0 0 $trace_flag and $cnt % 10 == 0
2095 0 0 0 $self->supported('ALLO') and $self->_alloc($size)
2149 0 0 0 $self->_rnfr($old_name) && $self->_rnto($new_name)
2201 0 0 0 $result and $cmd eq 'SITE'
0 0 0 $result and $cmd eq 'SITE' and $sub_cmd ne ''
2215 0 0 0 $result and $cmd eq 'FEAT'
0 0 0 $result and $cmd eq 'FEAT' and $sub_cmd ne ''
2219 0 0 0 exists $feat2->{'OPTS'} and exists $feat2->{'OPTS'}{$sub_cmd}
2229 0 0 0 $result and $cmd eq 'OPTS'
0 0 0 $result and $cmd eq 'OPTS' and $sub_cmd ne ''
2231 0 0 0 exists $feat3->{'OPTS'} and exists $feat3->{'OPTS'}{$sub_cmd}
2253 0 0 0 defined $_ and $_ ne ''
2284 0 0 0 $key eq 'HELP' and $help_flag
2286 0 0 0 $mode and not exists $help->{$key}
0 0 0 not $mode and exists $help->{$key}
2311 0 0 0 $self->_pbsz and $self->_prot($prot)
2391 0 0 0 $cmd2 eq 'HELP' and exists do { *$self }->{'_FTPSSL_arguments'}{'OverrideHELP'} || exists do { *$self }->{'_FTPSSL_arguments'}{'removeHELP'}
2496 0 0 0 $resp and $opt ne do { *$self }->{'_FTPSSL_arguments'}{'data_prot'}
2560 0 0 0 $res == 5 and $msg =~ /Invalid number of parameters/
2699 0 0 0 defined $time_str and $time_str =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/
2723 0 0 0 $self->command('SIZE', $file, @_)->response == 2 and $self->message =~ /\d+\s+(\d+)($|\D)/
2737 0 0 0 $cnt == 3 and $msg[1] =~ /\s(\d+)\s+$rFile/
2741 0 0 0 $cnt == 3 and $msg[1] =~ /\s(\d+)\s+(\S+)\s+(\d+)\s+(\d+:\d+)\s+$rFile/
2766 0 0 0 defined $size and $size >= 0
2929 0 0 0 exists $arg->{'removeHELP'} and $arg->{'removeHELP'} == 1
2948 0 0 0 $all_cmds and exists $arg->{'help_cmds_msg'}
2986 0 0 0 not $all_cmds and $arg->{'help_cmds_msg'} eq $self->last_message
3107 0 0 0 $site_cmd and $lst[0] eq 'SITE'
0 0 0 $site_cmd and $lst[0] eq 'SITE' and $lst[1] =~ /^[A-Z]+$/
3177 0 0 0 exists $arg->{'help_FEAT_found2'} and not exists $arg->{'help_FEAT_found2'}{'OPTS'}
3222 0 0 0 defined $lead and $lead =~ /^\d+[\s-]?$/
3231 0 0 0 defined $part[1] and $part[1] eq '*'
3309 0 0 0 defined $c and $c ne 'Net::FTPSSL::login'
3351 0 0 0 defined $replace_mode and uc($msg || '') ne ''
3352 0 0 0 $replace_mode and uc(do { *$self }->{'_FTPSSL_arguments'}{'last_ftp_msg'} || '') ne ''
3364 0 0 0 ref $self eq 'Net::FTPSSL' and not exists do { *$self }->{'_FTPSSL_arguments'}{'_command_failed_'}
0 0 0 ref $self eq 'Net::FTPSSL' and not exists do { *$self }->{'_FTPSSL_arguments'}{'_command_failed_'} and not exists do { *$self }->{'_FTPSSL_arguments'}{'recursion'}
0 0 0 ref $self eq 'Net::FTPSSL' and not exists do { *$self }->{'_FTPSSL_arguments'}{'_command_failed_'} and not exists do { *$self }->{'_FTPSSL_arguments'}{'recursion'} and $c ne 'Net::FTPSSL::command'
0 0 0 ref $self eq 'Net::FTPSSL' and not exists do { *$self }->{'_FTPSSL_arguments'}{'_command_failed_'} and not exists do { *$self }->{'_FTPSSL_arguments'}{'recursion'} and $c ne 'Net::FTPSSL::command' and $c ne 'Net::FTPSSL::response'
3378 0 0 0 defined $replace_mode and uc($msg || '') ne ''
0 0 0 defined $replace_mode and uc($msg || '') ne '' and do { *$self }->{'_FTPSSL_arguments'}{'debug'} == 2
3387 0 0 0 defined $replace_mode and uc($msg || '') ne ''
0 0 0 defined $replace_mode and uc($msg || '') ne '' and do { *$self }->{'_FTPSSL_arguments'}{'debug'}
3492 0 0 0 do { *$self }->{'_FTPSSL_arguments'}{'debug'} && do { *$self }->{'_FTPSSL_arguments'}{'debug_extra'}
3506 0 0 0 $done and $complete
3526 0 0 0 $done and $complete
3530 0 0 0 $done and $complete
3597 0 0 0 defined $sep and not $sep =~ /^\s*$/
3678 0 0 0 do { *$self }->{'_FTPSSL_arguments'}{'debug'} && do { *$self }->{'_FTPSSL_arguments'}{'debug_extra'}
3717 0 0 0 ${$ref;} ne '' and substr(${$ref;}, -length($splt)) ne $splt
3788 0 0 0 $ccc_kludge and $term
0 0 0 $ccc_kludge and $term and not $done
3801 0 0 0 $sep eq '-' and $term
3844 0 0 0 $end_with_cr and exists do { *$self }->{'_FTPSSL_arguments'}{'next_ftp_msg'}
3849 0 0 0 $ccc_kludge and $next_kludge
0 0 0 $end_response && $response_complete
0 0 0 $ccc_kludge and $next_kludge and not $end_response && $response_complete
3877 0 0 0 defined $self and do { *$self }->{'_FTPSSL_arguments'}{'debug'}
0 0 0 defined $self and do { *$self }->{'_FTPSSL_arguments'}{'debug'} and $force || exists do { *$self }->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}
3915 0 0 0 exists $warn_list{'OTHER'} and defined $warn_list{'OTHER'}
4022 0 0 0 defined $func_ref and defined $end_func_ref
4143 0 0 0 defined $sep and not $sep =~ /^\s*$/
4220 0 0 0 defined $self and exists do { *$self }->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}
4240 0 0 0 defined $self and do { *$self }->{'_FTPSSL_arguments'}{'debug'}
4250 0 0 0 defined $self and exists do { *$self }->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}
4261 0 0 0 defined $self and exists do { *$self }->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}

or 2 conditions

line l !l condition
214 0 0 $arg->{'Encryption'} || 'E'
216 0 0 $arg->{'Debug'} || 0
217 0 0 $arg->{'Trace'} || 0
218 0 0 $ssl_args{'Timeout'} || $arg->{'Timeout'} || 120
219 0 0 $arg->{'Buffer'} || 10240
221 0 0 $arg->{'DataProtLevel'} || 'P'
223 0 0 $arg->{'PreserveTimestamp'} || 0
224 0 0 $arg->{'useSSL'} || 0
233 0 0 $arg->{'Pret'} || 0
235 0 0 $arg->{'xWait'} || 0
237 0 0 $arg->{'ReuseSession'} || 0
347 0 0 $proxyArgs{'proxy-host'} || 'undef'
0 0 $proxyArgs{'proxy-port'} || 'undef'
632 0 0 shift() || '1'
791 0 0 $proxyArgs{'proxy-host'} || 'undef'
0 0 $proxyArgs{'proxy-port'} || 'undef'
922 0 0 shift() || undef
923 0 0 shift() || undef
1049 0 0 do { *$self }->{'_FTPSSL_arguments'}{'buf_size'} || 2048
1107 0 0 do { *$self }->{'_FTPSSL_arguments'}{'buf_size'} || 2048
1177 0 0 shift() || do { *$self }->{'_FTPSSL_arguments'}{'net_ftpssl_rest_offset'} || 0
1193 0 0 do { *$self }->{'_FTPSSL_arguments'}{'buf_size'} || 2048
1603 0 0 shift() || ''
1605 0 0 shift() || do { *$self }->{'_FTPSSL_arguments'}{'net_ftpssl_rest_offset'} || 0
1622 0 0 $sArg->{'Croak'} || 0
0 0 $dArg->{'Croak'} || 0
1638 0 0 $sArg->{'buf_size'} || 2048
1781 0 0 shift() || ''
1818 0 0 $sArg->{'Croak'} || 0
0 0 $dArg->{'Croak'} || 0
1892 0 0 shift() || do { *$self }->{'_FTPSSL_arguments'}{'net_ftpssl_rest_offset'} || 0
1910 0 0 (caller 1)[3] || ':unknown'
1928 0 0 do { *$self }->{'_FTPSSL_arguments'}{'buf_size'} || 2048
2183 0 0 shift() || ''
2184 0 0 shift() || ''
2913 0 0 $_[0] || ''
3283 0 0 do { *$self }->{'_FTPSSL_arguments'}{'Croak'} || 0
3338 0 0 shift() || 'Unknown Error'
3351 0 0 $msg || ''
3352 0 0 do { *$self }->{'_FTPSSL_arguments'}{'last_ftp_msg'} || ''
3360 0 0 (caller 1)[3] || ''
3378 0 0 $msg || ''
3387 0 0 $msg || ''
3468 0 0 shift() || 0
3587 0 0 do { *$self }->{'_FTPSSL_arguments'}{'_mask_value_in_response_'} || '????'
3870 0 0 shift() || 0

or 3 conditions

line l !l&&r !l&&!r condition
152 0 0 0 ref $self || $self
197 0 0 0 $ssl_args{'SSL_use_cert'} or $ssl_args{'SSL_verify_mode'}
215 0 0 0 $arg->{'Port'} || ($encrypt_mode eq 'I' ? 990 : 21)
222 0 0 0 $arg->{'Croak'} || $arg->{'Die'}
232 0 0 0 $ssl_args{'LocalAddr'} || $arg->{'LocalAddr'}
234 0 0 0 $arg->{'Domain'} || $arg->{'Family'}
240 0 0 0 $arg->{'DisableContext'} || $encrypt_mode eq 'C'
280 0 0 0 $use_logfile or $use_glob
520 0 0 0 $reuseSession or $enableCtx
0 0 0 $reuseSession or $enableCtx or ref $arg->{'SSL_Client_Certificate'} eq 'HASH'
634 0 0 0 $epsv_mode eq '1' or $epsv_mode eq '2'
750 0 0 0 $mode == 2 or $mode == 3
755 0 0 0 $mode == 4 || $mode == 5 || $mode == 6
765 0 0 0 $host eq '' or $port eq ''
1460 0 0 0 $c eq 'Net::FTPSSL::xput' || $c eq 'Net::FTPSSL::xtransfer'
1464 0 0 0 $body || hostname() . ".$$"
1468 0 0 0 $body || reverse(hostname()) . ".$$"
1604 0 0 0 shift() || $remote_file
1608 0 0 0 ref $dest_ftp eq '' or ref $dest_ftp ne 'Net::FTPSSL'
1641 0 0 0 ref $remote_file or $remote_file eq ''
1644 0 0 0 ref $dest_file or $dest_file eq ''
1762 0 0 0 $resp1 != 2 or $resp2 != 2
1782 0 0 0 shift() || $remote_file
1787 0 0 0 ref $dest_ftp eq '' or ref $dest_ftp ne 'Net::FTPSSL'
2193 0 0 0 $arg->{'OverrideHELP'} or exists $help->{$cmd}
2278 0 0 0 exists do { *$self }->{'_FTPSSL_arguments'}{'OverrideHELP'} || exists do { *$self }->{'_FTPSSL_arguments'}{'removeHELP'}
2303 0 0 0 shift() || do { *$self }->{'_FTPSSL_arguments'}{'data_prot'}
2391 0 0 0 $cmd2 eq 'STOR' or $cmd2 eq 'RETR'
0 0 0 $cmd2 eq 'STOR' or $cmd2 eq 'RETR' or $cmd2 eq 'NLST'
0 0 0 $cmd2 eq 'STOR' or $cmd2 eq 'RETR' or $cmd2 eq 'NLST' or $cmd2 eq 'LIST'
0 0 0 $cmd2 eq 'STOR' or $cmd2 eq 'RETR' or $cmd2 eq 'NLST' or $cmd2 eq 'LIST' or $cmd2 eq 'STOU'
0 0 0 $cmd2 eq 'STOR' or $cmd2 eq 'RETR' or $cmd2 eq 'NLST' or $cmd2 eq 'LIST' or $cmd2 eq 'STOU' or $cmd2 eq 'APPE'
0 0 0 $cmd2 eq 'STOR' or $cmd2 eq 'RETR' or $cmd2 eq 'NLST' or $cmd2 eq 'LIST' or $cmd2 eq 'STOU' or $cmd2 eq 'APPE' or $cmd2 eq 'MLSD'
0 0 0 exists do { *$self }->{'_FTPSSL_arguments'}{'OverrideHELP'} || exists do { *$self }->{'_FTPSSL_arguments'}{'removeHELP'}
2474 0 0 0 $resp == 2 || $resp == 3
2480 0 0 0 $resp == 2 || $resp == 3
2490 0 0 0 shift() || do { *$self }->{'_FTPSSL_arguments'}{'data_prot'}
2923 0 0 0 $all_cmds or exists $arg->{'help_cmds_msg'}
2961 0 0 0 exists $arg->{'help_cmds_found'}{$cmd} or $arg->{'OverrideHELP'}
3231 0 0 0 $part[0] =~ /[*]$/ or defined $part[1] and $part[1] eq '*'
3267 0 0 0 $status == 2 or $disable_croak
3348 0 0 0 $msg || do { *$self }->{'_FTPSSL_arguments'}{'last_ftp_msg'}
3530 0 0 0 $cnt == 0 or $! ne ''
3710 0 0 0 $status || $ccc_kludge
3877 0 0 0 $force || exists do { *$self }->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}
3917 0 0 0 $func_ref eq '' or $func_ref eq 'DEFAULT'
4105 0 0 0 shift() || $self
4280 0 0 0 $tmp eq 'GLOB' or $fh->isa('IO::Handle')