| line |
true |
false |
branch |
|
93
|
6 |
0 |
unless ref $dsn
|
|
134
|
271 |
0 |
if (defined $command)
|
|
152
|
0 |
296 |
if @_
|
|
212
|
0 |
0 |
if (@_) { }
|
|
233
|
0 |
7 |
unless my $r = $$self{'results'}
|
|
234
|
7 |
0 |
wantarray ? :
|
|
249
|
0 |
6 |
if ($username)
|
|
252
|
6 |
0 |
unless $$self{'auth'}
|
|
288
|
5083 |
7562 |
$self->can($method) ? :
|
|
305
|
5083 |
7562 |
$self->can($method) ? :
|
|
334
|
24710 |
8110 |
if (@_ and length(my $text = shift()) > 0) { }
|
|
375
|
0 |
19 |
if (my $cb = $self->callback) { }
|
|
377
|
0 |
0 |
if $@
|
|
396
|
6 |
132 |
if @_
|
|
412
|
0 |
114 |
if @_
|
|
428
|
6 |
7 |
if @_
|
|
444
|
0 |
1516 |
if @_
|
|
461
|
0 |
12 |
if @_
|
|
498
|
0 |
6 |
unless my $protocol = $$hashref{'X-Das-Version'}
|
|
501
|
0 |
6 |
unless my($version) = $protocol =~ m[(?:DAS/)?([\d.]+)]
|
|
504
|
0 |
6 |
unless $version >= 0.95
|
|
508
|
0 |
6 |
unless my $status = $$hashref{'X-Das-Status'}
|
|
511
|
0 |
6 |
unless $status =~ /200/
|
|
514
|
0 |
6 |
if exists $$hashref{'Content-Encoding'} and $$hashref{'Content-Encoding'} =~ /gzip/
|
|
550
|
0 |
114 |
unless my $parser = $self->xml_parser
|
|
552
|
0 |
114 |
if ($self->compressed)
|
|
554
|
0 |
0 |
unless $status
|
|
570
|
0 |
6 |
unless my $parser = $self->xml_parser
|
|
594
|
0 |
0 |
unless ($$self{'p_i'})
|
|
597
|
0 |
0 |
if length $cd < 10
|
|
603
|
0 |
0 |
unless $gzip_magic == 8075
|
|
605
|
0 |
0 |
unless $gzip_method == Z_DEFLATED()
|
|
615
|
0 |
0 |
if ($comment == 8 or $comment == 10)
|
|
623
|
0 |
0 |
unless $$self{'p_i'} = inflateInit(-'WindowBits', -MAX_WBITS())
|
|
627
|
0 |
0 |
unless $status == Z_OK() or $status == Z_STREAM_END()
|