| line |
true |
false |
branch |
|
167
|
0 |
0 |
if (@_ % 2) { }
|
|
178
|
0 |
0 |
unless my $port = $opts{'port'}
|
|
206
|
0 |
0 |
if ($self->is_connected)
|
|
215
|
0 |
0 |
if in_global_destruction
|
|
217
|
0 |
0 |
if ($self->is_connected)
|
|
232
|
0 |
0 |
$self->fh ? :
|
|
265
|
0 |
0 |
unless $$self{'connection_status'}
|
|
291
|
0 |
0 |
if ($self->is_connected)
|
|
296
|
0 |
0 |
unless ($$self{'reconnect_period'})
|
|
312
|
0 |
0 |
if ($this and $this->is_connected)
|
|
356
|
0 |
0 |
unless ref $tuple eq 'ARRAY'
|
|
551
|
0 |
0 |
if exists $$self{'last_code'}
|
|
565
|
0 |
0 |
if exists $$self{'last_error_string'}
|
|
594
|
0 |
0 |
if $logdir
|
|
596
|
0 |
0 |
if $logdir and $$response{'status'} ne 'ok'
|
|
601
|
0 |
0 |
unless -d $logdir
|
|
609
|
0 |
0 |
if -e $logdirname or -d $logdirname
|
|
612
|
0 |
0 |
unless mkdir $logdirname
|
|
616
|
0 |
0 |
unless open my $fh, '>:raw', $rrname
|
|
623
|
0 |
0 |
unless open $fh, '>:raw', $respname
|
|
633
|
0 |
0 |
if (defined $res_pkt)
|
|
636
|
0 |
0 |
unless open $fh, '>:raw', $respname
|
|
641
|
0 |
0 |
if $@
|
|
650
|
0 |
0 |
if $ENV{'TNT_LOG_ERRDIR'} or $ENV{'TNT_LOG_DIR'}
|
|
656
|
0 |
0 |
if ($self->fh)
|
|
657
|
0 |
0 |
if $$self{'whandle'}
|
|
666
|
0 |
0 |
unless (defined $wb)
|
|
670
|
0 |
0 |
unless $wb
|
|
672
|
0 |
0 |
unless length $$self{'wbuf'}
|
|
678
|
0 |
0 |
unless $id < 2147483647
|
|
679
|
0 |
0 |
if exists $$self{'wait'}{$id}
|
|
710
|
0 |
0 |
if $cb
|
|
711
|
0 |
0 |
if $$self{'reconnect_timer'}
|
|
712
|
0 |
0 |
if $$self{'connecting'}
|
|
713
|
0 |
0 |
unless $$self{'first_connect'} or $$self{'reconnect_period'}
|
|
719
|
0 |
0 |
if $$self{'connecting'}
|
|
727
|
0 |
0 |
if ($fh)
|
|
731
|
0 |
0 |
if length $$self{'wbuf'}
|
|
739
|
0 |
0 |
if $cb
|
|
744
|
0 |
0 |
if ($$self{'first_connect'} and not $$self{'reconnect_always'})
|
|
745
|
0 |
0 |
if $cb
|
|
752
|
0 |
0 |
$$self{'first_connect'} ? :
|
|
757
|
0 |
0 |
unless length $$self{'rbuf'} >= 12
|
|
759
|
0 |
0 |
unless length $$self{'rbuf'} >= 12 + $blen
|
|
767
|
0 |
0 |
if (exists $$res{'errstr'}) { }
|
|
773
|
0 |
0 |
if ($$res{'status'} =~ /^(fatal|buffer)$/)
|
|
780
|
0 |
0 |
if ('CODE' eq ref $cb) { }
|
|
793
|
0 |
0 |
unless (defined $rd)
|
|
798
|
0 |
0 |
unless ($rd)
|
|
843
|
0 |
0 |
unless 'CODE' eq ref $cb
|
|
848
|
0 |
0 |
unless 'ARRAY' eq ref $tuple
|
|
853
|
0 |
0 |
unless 'ARRAY' eq ref $list
|
|
854
|
0 |
0 |
unless @$list
|
|
860
|
0 |
0 |
unless defined $number and $number =~ /^\d+$/
|
|
867
|
0 |
0 |
unless 'ARRAY' eq ref $op
|
|
868
|
0 |
0 |
unless @$op >= 2
|
|
869
|
0 |
0 |
unless $$op[1] and $$op[1] =~ /^(delete|set|insert|add|and|or|xor|substr)$/
|
|
877
|
0 |
0 |
unless 'ARRAY' eq ref $list
|
|
879
|
0 |
0 |
unless @$list
|