Branch Coverage

blib/lib/Net/MySQL.pm
Criterion Covered Total %
branch 11 108 10.1


line true false branch
96 0 0 unless $mysql->can('send')
101 0 0 if 'Net::MySQL'->debug
123 0 0 unless $self->has_selected_record
137 0 0 $$self{'selected_record'} ? :
144 0 0 $$self{'error_code'} ? :
165 0 0 if @_
175 0 0 if ($$self{'hostname'}) { }
176 0 0 if $self->debug
178 0 0 unless $mysql = 'IO::Socket::INET'->new('PeerAddr', $$self{'hostname'}, 'PeerPort', $$self{'port'}, 'Proto', 'tcp', 'Timeout', $$self{'timeout'} || 60)
186 0 0 if $self->debug
187 0 0 unless $mysql = 'IO::Socket::UNIX'->new('Type', 1, 'Peer', $$self{'unixsocket'})
204 0 0 if 'Net::MySQL'->debug
210 0 0 if 'Net::MySQL'->debug
212 0 0 if ($$self{'protocol_version'} == 10)
219 0 0 if 'Net::MySQL'->debug
228 0 0 if (length $message >= $i + 1)
231 0 0 if (length $message >= $i + 18)
236 0 0 if (length $message >= $i + 12 - 1)
239 0 0 if 'Net::MySQL'->debug
252 0 0 if 'Net::MySQL'->debug
253 0 0 if ($self->_is_error($auth_result))
255 0 0 if (length $auth_result < 7)
260 0 0 if 'Net::MySQL'->debug
280 0 0 if 'Net::MySQL'->debug
294 0 0 if 'Net::MySQL'->debug
298 0 0 if 'Net::MySQL'->debug
301 0 0 if ($self->_is_error($result)) { }
0 0 elsif ($self->_is_select_query_result($result)) { }
0 0 elsif ($self->_is_update_query_result($result)) { }
347 0 0 if 'Net::MySQL'->debug
369 0 0 if length $packet < 4
378 0 0 if $self->_is_error($packet)
387 0 0 if $self->_is_error($packet)
421 0 0 if ord substr($packet, 6, 1) != 252
430 0 0 if length $packet < 7
439 0 0 unless $self->_is_error($packet)
474 0 0 /[\w\d\*\,\?\%\=\'\;\(\)\.-]/ ? :
524 0 0 if $self->is_end_of_packet
562 0 0 if 'Net::MySQL'->debug
587 0 0 if 'Net::MySQL'->debug
598 0 0 unless defined $length
640 0 0 if $head == 251
641 0 0 if ($head < 251) { }
0 0 elsif ($head == 252) { }
0 0 elsif ($head == 253) { }
689 0 0 unless $password
690 0 0 if length $password == 0
736 2 2 unless $password
737 0 2 if length $password == 0
746 1 1 if ($client_capabilities < 1) { }
765 1 1 if ($client_capabilities == 1)
794 0 36 if $c eq ' ' or $c eq "\t"
836 166 0 if ($] >= 5.006)
837 76 90 if $source > 4294967295