Condition Coverage

blib/lib/Net/FTPSSL.pm
Criterion Covered Total %
condition 0 661 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 '>>'
311 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'
316 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'
323 0 0 0 $ipv6 and defined $domain
363 0 0 0 $ipv6 and defined $domain
429 0 0 0 $type->can('can_client_sni') and $type->can_client_sni
548 0 0 0 exists do { *$obj }->{'_SSL_arguments'}{$key} and not exists $ssl_reuse{$key}
579 0 0 0 defined $user and $user ne ''
584 0 0 0 $self->_user($user) && $self->_passwd($pass)
603 0 0 0 $arg->{'debug'} and $arg->{'debug_extra'}
619 0 0 0 $arg->{'FixPutTs'} and not $self->supported('MFMT')
622 0 0 0 $arg->{'FixGetTs'} and not $self->supported('MDTM')
650 0 0 0 do { *$self }->{'_FTPSSL_arguments'}{'dcsc_mode'} != 2 and do { *$self }->{'_FTPSSL_arguments'}{'dcsc_mode'} != 3
811 0 0 0 $ftps_ref->{'data_prot'} eq 'C' and exists $ftps_ref->{'myProxyArgs'}
860 0 0 0 $ftps_ref->{'data_prot'} eq 'P' and exists $ftps_ref->{'myContext'}
865 0 0 0 $self->can('can_client_sni') and $self->can_client_sni
1027 0 0 0 defined $feat_lst and defined $file
0 0 0 defined $feat_lst and defined $file and $file
1121 0 0 0 $lst_cmd eq 'MLSD' && $ftype != 0
1155 0 0 0 $data and $pattern
1174 0 0 0 $data and $ftype
1191 0 0 0 $ftype == 1 and $isRegDir
0 0 0 $ftype == 2 and $isFile
0 0 0 $ftype == 3 and not $isDir
0 0 0 $ftype == 3 and not $isDir and not $isFile
0 0 0 $ftype == 4 and $isSpecialDir
1302 0 0 0 $diff == -1 and $cr_only
1425 0 0 0 defined $c && $c eq 'Net::FTPSSL::xget'
1431 0 0 0 $rest and $self->_retr($file_rem)
1437 0 0 0 $offset and $rest
1497 0 0 0 $trace_flag and $cnt % 10 == 0
1555 0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'}
0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm
1566 0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'}
0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm
1613 0 0 0 do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm
1660 0 0 0 $cnt == 1 and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'}
0 0 0 $cnt == 1 and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'} and not $self->_isa_glob($file_loc)
1689 0 0 0 defined $c and $c eq 'Net::FTPSSL::xput' || $c eq 'Net::FTPSSL::xtransfer'
1769 0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'}
0 0 0 $resp and do { *$self }->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm
1882 0 0 0 defined $c && $c eq 'Net::FTPSSL::xtransfer'
1901 0 0 0 $restart and $response
1902 0 0 0 $restart and $offset
1918 0 0 0 $rest and $self->_retr($remote_file)
1919 0 0 0 $offset and $rest
1952 0 0 0 $trace_flag and $cnt % 10 == 0
1974 0 0 0 $trail and $len > 0
1996 0 0 0 $cb_idx == 1 and $sArg->{'FixGetTs'}
0 0 0 $cb_idx == 1 and $sArg->{'FixGetTs'} and $dArg->{'FixPutTs'}
2073 0 0 0 $resp and $sArg->{'FixGetTs'}
0 0 0 $resp and $sArg->{'FixGetTs'} and $dArg->{'FixPutTs'}
2126 0 0 0 $self->_isa_glob($file_loc) and not $file_rem
2143 0 0 0 $offset and $func ne 'put'
0 0 0 $offset and $func ne 'put' and $func ne 'append'
2196 0 0 0 $close_file and -f $file_loc
2219 0 0 0 $restart and $response
2221 0 0 0 $restart and $offset
0 0 0 $restart and $offset and $func eq 'get'
2264 0 0 0 $trace_flag and $cnt % 10 == 0
2324 0 0 0 $self->supported('ALLO') and $self->_alloc($size)
2378 0 0 0 $self->_rnfr($old_name) && $self->_rnto($new_name)
2422 0 0 0 exists $arg->{'OverrideHELP'} and $cmd eq 'HELP'
2432 0 0 0 $result and $cmd eq 'SITE'
0 0 0 $result and $cmd eq 'SITE' and $sub_cmd ne ''
2448 0 0 0 $result and $cmd eq 'FEAT'
0 0 0 $result and $cmd eq 'FEAT' and $sub_cmd ne ''
2452 0 0 0 exists $feat2->{'OPTS'} and exists $feat2->{'OPTS'}{$sub_cmd}
2463 0 0 0 $result and $cmd eq 'OPTS'
0 0 0 $result and $cmd eq 'OPTS' and $sub_cmd ne ''
2465 0 0 0 exists $feat3->{'OPTS'} and exists $feat3->{'OPTS'}{$sub_cmd}
2487 0 0 0 defined $_ and $_ ne ''
2518 0 0 0 $key eq 'HELP' and $help_flag
2520 0 0 0 $mode and not exists $help->{$key}
0 0 0 not $mode and exists $help->{$key}
2545 0 0 0 $self->_pbsz and $self->_prot($prot)
2596 0 0 0 defined $ok and $ok eq 2
2634 0 0 0 $cmd2 eq 'HELP' and exists do { *$self }->{'_FTPSSL_arguments'}{'OverrideHELP'} || exists do { *$self }->{'_FTPSSL_arguments'}{'removeHELP'}
2739 0 0 0 $resp and $opt ne do { *$self }->{'_FTPSSL_arguments'}{'data_prot'}
2803 0 0 0 $res == 5 and $msg =~ /Invalid number of parameters/
2942 0 0 0 defined $time_str and $time_str =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/
2968 0 0 0 $self->command('SIZE', $file, @_)->response == 2 and $self->message =~ /\d+\s+(\d+)($|\D)/
2980 0 0 0 $self->supported('MLST') and not $skip_mlst
2999 0 0 0 $self->supported('STAT') and not $skip_stat
3006 0 0 0 $cnt == 3 and $msg[1] =~ /\s(\d+)\s+$rFile/
3010 0 0 0 $cnt == 3 and $msg[1] =~ /\s(\d+)\s+(\S+)\s+(\d+)\s+(\d+:\d+)\s+$rFile/
3060 0 0 0 defined $size and $size >= 0
3245 0 0 0 exists $arg->{'removeHELP'} and $arg->{'removeHELP'} == 1
3259 0 0 0 $all_cmds and exists $arg->{'help_cmds_msg'}
3297 0 0 0 not $all_cmds and $arg->{'help_cmds_msg'} eq $self->last_message
3424 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]+$/
3505 0 0 0 exists $arg->{'help_FEAT_found2'} and not exists $arg->{'help_FEAT_found2'}{'OPTS'}
3550 0 0 0 defined $lead and $lead =~ /^\d+[\s-]?$/
3559 0 0 0 defined $part[1] and $part[1] eq '*'
3637 0 0 0 defined $c and $c ne 'Net::FTPSSL::login'
3679 0 0 0 defined $replace_mode and uc($msg || '') ne ''
3680 0 0 0 $replace_mode and uc(do { *$self }->{'_FTPSSL_arguments'}{'last_ftp_msg'} || '') ne ''
3692 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'
3706 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
3715 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'}
3820 0 0 0 do { *$self }->{'_FTPSSL_arguments'}{'debug'} && do { *$self }->{'_FTPSSL_arguments'}{'debug_extra'}
3834 0 0 0 $done and $complete
3854 0 0 0 $done and $complete
3858 0 0 0 $done and $complete
3925 0 0 0 defined $sep and not $sep =~ /^\s*$/
4006 0 0 0 do { *$self }->{'_FTPSSL_arguments'}{'debug'} && do { *$self }->{'_FTPSSL_arguments'}{'debug_extra'}
4045 0 0 0 ${$ref;} ne '' and substr(${$ref;}, -length($splt)) ne $splt
4116 0 0 0 $ccc_kludge and $term
0 0 0 $ccc_kludge and $term and not $done
4129 0 0 0 $sep eq '-' and $term
4172 0 0 0 $end_with_cr and exists do { *$self }->{'_FTPSSL_arguments'}{'next_ftp_msg'}
4177 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
4205 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'}
4243 0 0 0 exists $warn_list{'OTHER'} and defined $warn_list{'OTHER'}
4350 0 0 0 defined $func_ref and defined $end_func_ref
4476 0 0 0 defined $sep and not $sep =~ /^\s*$/
4553 0 0 0 defined $self and exists do { *$self }->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}
4573 0 0 0 defined $self and do { *$self }->{'_FTPSSL_arguments'}{'debug'}
4583 0 0 0 defined $self and exists do { *$self }->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}
4594 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
349 0 0 $proxyArgs{'proxy-host'} || 'undef'
0 0 $proxyArgs{'proxy-port'} || 'undef'
643 0 0 shift() || '1'
802 0 0 $proxyArgs{'proxy-host'} || 'undef'
0 0 $proxyArgs{'proxy-port'} || 'undef'
1021 0 0 shift() || 0
1052 0 0 shift() || ''
1054 0 0 shift() || undef
1055 0 0 shift() || undef
1056 0 0 shift() || 0
1231 0 0 do { *$self }->{'_FTPSSL_arguments'}{'buf_size'} || 2048
1289 0 0 do { *$self }->{'_FTPSSL_arguments'}{'buf_size'} || 2048
1359 0 0 shift() || do { *$self }->{'_FTPSSL_arguments'}{'net_ftpssl_rest_offset'} || 0
1375 0 0 do { *$self }->{'_FTPSSL_arguments'}{'buf_size'} || 2048
1832 0 0 shift() || ''
1834 0 0 shift() || do { *$self }->{'_FTPSSL_arguments'}{'net_ftpssl_rest_offset'} || 0
1851 0 0 $sArg->{'Croak'} || 0
0 0 $dArg->{'Croak'} || 0
1867 0 0 $sArg->{'buf_size'} || 2048
2010 0 0 shift() || ''
2047 0 0 $sArg->{'Croak'} || 0
0 0 $dArg->{'Croak'} || 0
2121 0 0 shift() || do { *$self }->{'_FTPSSL_arguments'}{'net_ftpssl_rest_offset'} || 0
2139 0 0 (caller 1)[3] || ':unknown'
2157 0 0 do { *$self }->{'_FTPSSL_arguments'}{'buf_size'} || 2048
2412 0 0 shift() || ''
2413 0 0 shift() || ''
2964 0 0 shift() || 0
3229 0 0 $_[0] || ''
3611 0 0 do { *$self }->{'_FTPSSL_arguments'}{'Croak'} || 0
3666 0 0 shift() || 'Unknown Error'
3679 0 0 $msg || ''
3680 0 0 do { *$self }->{'_FTPSSL_arguments'}{'last_ftp_msg'} || ''
3688 0 0 (caller 1)[3] || ''
3706 0 0 $msg || ''
3715 0 0 $msg || ''
3796 0 0 shift() || 0
3915 0 0 do { *$self }->{'_FTPSSL_arguments'}{'_mask_value_in_response_'} || '????'
4198 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'
282 0 0 0 $use_logfile or $use_glob
525 0 0 0 $reuseSession or $enableCtx
0 0 0 $reuseSession or $enableCtx or ref $arg->{'SSL_Client_Certificate'} eq 'HASH'
645 0 0 0 $epsv_mode eq '1' or $epsv_mode eq '2'
761 0 0 0 $mode == 2 or $mode == 3
766 0 0 0 $mode == 4 || $mode == 5 || $mode == 6
776 0 0 0 $host eq '' or $port eq ''
1186 0 0 0 $t eq 'cdir' || $t eq 'pdir'
1188 0 0 0 $isRegDir || $isSpecialDir
1689 0 0 0 $c eq 'Net::FTPSSL::xput' || $c eq 'Net::FTPSSL::xtransfer'
1693 0 0 0 $body || hostname() . ".$$"
1697 0 0 0 $body || reverse(hostname()) . ".$$"
1833 0 0 0 shift() || $remote_file
1837 0 0 0 ref $dest_ftp eq '' or ref $dest_ftp ne 'Net::FTPSSL'
1870 0 0 0 ref $remote_file or $remote_file eq ''
1873 0 0 0 ref $dest_file or $dest_file eq ''
1991 0 0 0 $resp1 != 2 or $resp2 != 2
2011 0 0 0 shift() || $remote_file
2016 0 0 0 ref $dest_ftp eq '' or ref $dest_ftp ne 'Net::FTPSSL'
2422 0 0 0 $arg->{'OverrideHELP'} or $help->{$cmd}
2512 0 0 0 exists do { *$self }->{'_FTPSSL_arguments'}{'OverrideHELP'} || exists do { *$self }->{'_FTPSSL_arguments'}{'removeHELP'}
2537 0 0 0 shift() || do { *$self }->{'_FTPSSL_arguments'}{'data_prot'}
2634 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'}
2717 0 0 0 $resp == 2 || $resp == 3
2723 0 0 0 $resp == 2 || $resp == 3
2733 0 0 0 shift() || do { *$self }->{'_FTPSSL_arguments'}{'data_prot'}
2990 0 0 0 $t eq 'dir' or $t eq 'cdir'
0 0 0 $t eq 'dir' or $t eq 'cdir' or $t eq 'pdir'
3089 0 0 0 $t eq 'dir' || $t eq 'cdir' || $t eq 'pdir'
3239 0 0 0 $all_cmds or exists $arg->{'help_cmds_msg'}
3272 0 0 0 exists $arg->{'help_cmds_found'}{$cmd} or $arg->{'OverrideHELP'}
3559 0 0 0 $part[0] =~ /[*]$/ or defined $part[1] and $part[1] eq '*'
3595 0 0 0 $status == 2 or $disable_croak
3676 0 0 0 $msg || do { *$self }->{'_FTPSSL_arguments'}{'last_ftp_msg'}
3858 0 0 0 $cnt == 0 or $! ne ''
4038 0 0 0 $status || $ccc_kludge
4205 0 0 0 $force || exists do { *$self }->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}
4245 0 0 0 $func_ref eq '' or $func_ref eq 'DEFAULT'
4438 0 0 0 shift() || $self
4613 0 0 0 $tmp eq 'GLOB' or $fh->isa('IO::Handle')