| line |
true |
false |
branch |
|
220
|
1 |
7 |
if sprintf('%d', $next) < 0 |
|
234
|
0 |
0 |
if $alarm_bug == 0 |
|
263
|
0 |
1 |
$^O =~ /^MSWin/ ? : |
|
289
|
0 |
0 |
defined $args{'connect_timeout'} ? : |
|
|
0 |
0 |
defined $args{'query_timeout'} ? : |
|
357
|
0 |
0 |
if ($socket) |
|
358
|
0 |
0 |
if ($select) |
|
359
|
0 |
0 |
if ($select->can_write(1)) |
|
367
|
0 |
0 |
if $@ |
|
411
|
0 |
0 |
if ($seconds == 0) |
|
423
|
0 |
0 |
if $$self{'command_expire_time'} == 0 |
|
425
|
0 |
0 |
if $remaining < 1 |
|
432
|
0 |
0 |
unless defined $$self{'socket'} |
|
438
|
0 |
0 |
if $$self{'streaming'} |
|
445
|
0 |
0 |
if defined $$self{'socket'} |
|
446
|
0 |
0 |
if length $$self{'host'} == 0 |
|
447
|
0 |
0 |
if length $$self{'port'} == 0 |
|
453
|
0 |
0 |
if $$self{'debug'} & 1 |
|
454
|
0 |
0 |
unless $socket = 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerAddr', $$self{'host'}, 'PeerPort', $$self{'port'}, 'Timeout', $self->_check_time_remaining) |
|
476
|
0 |
0 |
unless defined $$self{'error'} |
|
477
|
0 |
0 |
if length $msg > 0 |
|
487
|
0 |
0 |
unless defined $$self{'error'} |
|
488
|
0 |
0 |
if length $msg > 0 |
|
502
|
0 |
0 |
if $$self{'cancelling'} |
|
506
|
0 |
0 |
if defined $ready and scalar $ready != 0 |
|
514
|
0 |
0 |
if length $data == 0 |
|
528
|
0 |
0 |
defined $$self{'packet_goal'} ? : |
|
530
|
0 |
0 |
if $goal2 > $goal |
|
531
|
0 |
0 |
if ($buflen < $goal) |
|
550
|
0 |
0 |
if $$self{'packet_read'} < 4 |
|
555
|
0 |
0 |
unless (defined $$self{'packet_goal'}) |
|
560
|
0 |
0 |
if $$self{'packet_read'} < $$self{'packet_goal'} |
|
561
|
0 |
0 |
if $$self{'debug'} & 1 |
|
577
|
0 |
0 |
if $$self{'debug'} & 1 |
|
600
|
0 |
0 |
if ($type == '8') |
|
604
|
0 |
0 |
if ($expected & 128) |
|
605
|
0 |
0 |
if $type == 128 |
|
609
|
0 |
0 |
if ($expected & '1') |
|
610
|
0 |
0 |
if $type == '1' |
|
614
|
0 |
0 |
if ($expected & 4) |
|
615
|
0 |
0 |
if $type == 4 |
|
619
|
0 |
0 |
if ($expected & '32') |
|
620
|
0 |
0 |
if $type == '32' |
|
624
|
0 |
0 |
if ($expected & '64') |
|
625
|
0 |
0 |
if $type == '64' |
|
629
|
0 |
0 |
if ($expected & 256) |
|
630
|
0 |
0 |
if $type == 256 |
|
634
|
0 |
0 |
if ($expected & '512') |
|
635
|
0 |
0 |
if $type == '512' |
|
649
|
0 |
0 |
if (ord substr($$macket{'buf'}, 4, 1) == 255) |
|
653
|
0 |
0 |
if (length $$macket{'buf'} < 13 and ord substr($$macket{'buf'}, 4, 1) == 254) |
|
657
|
0 |
0 |
if (ord substr($$macket{'buf'}, 4, 1) == 0 and length $$macket{'buf'} > 9) |
|
661
|
0 |
0 |
if ($self->_extract_macket_number($macket) == 0 and not defined $$self{'protocol_version'}) |
|
665
|
0 |
0 |
unless (defined $$self{'no_of_columns'}) |
|
669
|
0 |
0 |
if ($$self{'expected_macket'} & '64') |
|
673
|
0 |
0 |
if ($$self{'expected_macket'} & 256) |
|
677
|
0 |
0 |
if ($$self{'expected_macket'} & '512') |
|
696
|
0 |
0 |
$len > 16777215 ? : |
|
697
|
0 |
0 |
if $len == 0 or $chunk_len < 16777215 |
|
703
|
0 |
0 |
if $pos > 0 |
|
709
|
0 |
0 |
unless $socket |
|
727
|
0 |
0 |
if ($$macket{'type'} == '8') |
|
734
|
0 |
0 |
if $$self{'debug'} & 1 |
|
737
|
0 |
0 |
if $$self{'debug'} & 1 |
|
740
|
0 |
0 |
if ($$self{'protocol_version'} != 10) |
|
747
|
0 |
0 |
if $string_end == -1 |
|
750
|
0 |
0 |
if $$self{'debug'} & 1 |
|
753
|
0 |
0 |
if $left < 44 |
|
756
|
0 |
0 |
if $$self{'debug'} & 1 |
|
765
|
0 |
0 |
if $$self{'debug'} & 1 |
|
768
|
0 |
0 |
if $$self{'debug'} & 1 |
|
771
|
0 |
0 |
if $$self{'debug'} & 1 |
|
778
|
0 |
0 |
if $$self{'debug'} & 1 |
|
792
|
0 |
0 |
if ($$auth_result{'type'} == 128) |
|
799
|
0 |
0 |
if ($$auth_result{'type'} == 4) |
|
802
|
0 |
0 |
if ($$auth_result{'type'} == '8') |
|
806
|
0 |
0 |
if $$self{'debug'} & 1 |
|
853
|
0 |
0 |
if (length $$self{'password'} > 0) { } |
|
858
|
0 |
0 |
if (defined $$self{'database'}) |
|
888
|
0 |
0 |
if $wantstream |
|
891
|
0 |
0 |
if $wantstream |
|
896
|
0 |
0 |
if defined $sql and not utf8::is_utf8($sql) |
|
898
|
0 |
0 |
length $sql >= 100 ? : |
|
|
0 |
0 |
if $$self{'debug'} & 1 |
|
926
|
0 |
0 |
if ($$macket{'type'} == '8') |
|
931
|
0 |
0 |
if ($$macket{'type'} == '32') |
|
935
|
0 |
0 |
unless $$self{'streaming'} |
|
937
|
0 |
0 |
if ($$macket{'type'} == 4) |
|
950
|
0 |
0 |
if $$self{'debug'} & 1 |
|
953
|
0 |
0 |
if ($macket_length - 1 > $pos) |
|
955
|
0 |
0 |
if $$self{'debug'} & 1 |
|
965
|
0 |
0 |
if ($$macket{'type'} != '8') |
|
974
|
0 |
0 |
if $left < 2 |
|
981
|
0 |
0 |
if ($sqlstate_marker eq '#') |
|
1008
|
0 |
0 |
if ($$macket{'type'} == '8') |
|
1012
|
0 |
0 |
if ($$macket{'type'} == '64') |
|
1017
|
0 |
0 |
if ($$self{'no_of_columns'} ne scalar @queue) |
|
1046
|
0 |
0 |
if ($$macket{'type'} == '8') |
|
1050
|
0 |
0 |
if ($$macket{'type'} == 256) |
|
1065
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1068
|
0 |
0 |
if ($$macket{'type'} == '8') |
|
1080
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1085
|
0 |
0 |
if ($$macket{'type'} == 128) |
|
1117
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1120
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1123
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1125
|
0 |
0 |
if $left < 4 |
|
1128
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1131
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1135
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1137
|
0 |
0 |
if (defined $iterator) |
|
1152
|
0 |
0 |
if $left < 4 |
|
1153
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1156
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1159
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1160
|
0 |
0 |
if $status & '8' |
|
1161
|
0 |
0 |
if defined $iterator |
|
1193
|
0 |
0 |
if $left < 10 |
|
1209
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1212
|
0 |
0 |
if ($macket_length - 1 > $pos) |
|
1214
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1221
|
0 |
0 |
if $$self{'debug'} & 1 |
|
1280
|
0 |
0 |
if $@ |
|
1294
|
0 |
0 |
if $@ |
|
1308
|
0 |
0 |
if $@ |
|
1316
|
0 |
0 |
if defined $$self{'streaming_iterator'} |
|
1344
|
0 |
0 |
unless $$self{'debug'} & 4 |
|
1352
|
0 |
0 |
unless ($$self{'debug'} & 8) |
|
1353
|
0 |
0 |
if ($len > 528 and $pos > 256 and $len - $pos > 256) |
|
1354
|
0 |
0 |
unless ($skipped) |
|
1365
|
0 |
0 |
/[\w\d\*\,\?\%\=\'\;\(\)\.-]/ ? : |
|
1377
|
0 |
0 |
unless $$self{'debug'} & 2 |
|
1390
|
0 |
0 |
unless ($$self{'debug'} & 16) |
|
1391
|
0 |
0 |
if ($len > 528 and $pos > 256 and $len - $pos > 256) |
|
1392
|
0 |
0 |
unless ($skipped) |
|
1400
|
0 |
0 |
if substr($str, -1, 1) eq "\n" |
|
1404
|
0 |
0 |
/[\w\d\*\,\?\%\=\'\;\(\)\.-]/ ? : |
|
1444
|
0 |
0 |
if (defined $wire) |
|
1446
|
0 |
0 |
unless $wire->_retrieve_row_data($self) |
|
1450
|
0 |
0 |
if scalar @{$$self{'row_data'};} == 0 |
|
1458
|
0 |
0 |
if $@ |
|
1460
|
0 |
0 |
if $Net::Wire10::UTF8_COLLATIONS{$collation} |
|
1481
|
0 |
0 |
unless defined $row |
|
1490
|
0 |
0 |
unless defined $wire |
|
1507
|
0 |
0 |
unless defined $what |
|
1514
|
0 |
0 |
scalar @{$$self{'column_info'};} ? : |
|
1526
|
0 |
0 |
unless defined $$self{'row_data'} |
|
1537
|
0 |
0 |
if $@ |
|
1563
|
0 |
0 |
if defined $sql and not utf8::is_utf8($sql) |
|
1583
|
0 |
0 |
if defined $value and not $datatype == '1' || utf8::is_utf8($value) |
|
1596
|
0 |
0 |
unless scalar @indices > 0 |
|
1629
|
0 |
0 |
if ($token ne '?') |
|
1633
|
0 |
0 |
unless $first =~ /$whitespace/ |
|
1634
|
0 |
0 |
if $first eq '_' |
|
1641
|
0 |
0 |
unless (defined $value) |
|
1645
|
0 |
0 |
unless $value =~ /$workaround_bug_1337/ |
|
1651
|
0 |
0 |
unless utf8::is_utf8($value) or $has_charset |
|
1657
|
0 |
0 |
unless utf8::is_utf8($value) |
|
1663
|
0 |
0 |
if $$wire{'debug'} & 1 |
|
1664
|
0 |
0 |
if $wantstream |
|
1710
|
0 |
0 |
$$self{'state'} ? : |
|
1762
|
0 |
0 |
if $nrbytes <= 7 |
|
1764
|
0 |
0 |
if $nrbytes > 8 or $bytes[-1] > 127 |
|
1778
|
0 |
0 |
if $$pos >= $len |
|
1785
|
0 |
0 |
if $head < 251 |
|
1787
|
0 |
0 |
if $head == 251 |
|
1789
|
0 |
0 |
if $$pos + $bytes >= $len |
|
1790
|
0 |
0 |
if $head <= 254 |
|
1812
|
0 |
0 |
unless defined $bytes |
|
1824
|
0 |
0 |
unless defined $length |
|
1848
|
0 |
0 |
if defined $length |
|
1901
|
0 |
0 |
if length $parsed != length $query |
|
1908
|
0 |
0 |
unless defined $string |
|
1925
|
0 |
0 |
unless defined $identifier |
|
1936
|
0 |
0 |
unless defined $string |
|
1970
|
0 |
1 |
if ($@) |
|
1981
|
0 |
0 |
unless $password |
|
1982
|
0 |
0 |
if length $password == 0 |
|
2021
|
0 |
0 |
unless $password |
|
2022
|
0 |
0 |
if length $password == 0 |
|
2031
|
0 |
0 |
if ($client_capabilities < 1) { } |
|
2050
|
0 |
0 |
if ($client_capabilities == 1) |
|
2077
|
0 |
0 |
if $c eq ' ' or $c eq "\t" |
|
2111
|
0 |
0 |
if ($] >= 5.006) |
|
2112
|
0 |
0 |
if $source > 4294967295 |