| line |
true |
false |
branch |
|
94
|
0 |
12 |
if exists $args{$_} |
|
168
|
0 |
0 |
if $connected->as_numeric |
|
173
|
0 |
0 |
if $self->service |
|
175
|
0 |
0 |
unless ref $uri |
|
252
|
4 |
4 |
if exists $ENV{'PGSERVICEFILE'} |
|
253
|
2 |
2 |
if exists $ENV{'PGSYSCONFDIR'} |
|
255
|
1 |
1 |
if -r $path |
|
269
|
1 |
2 |
unless $data->{$srv} |
|
289
|
18 |
0 |
unless ($^O eq "MSWin32") |
|
292
|
0 |
18 |
unless my(undef, undef, $mode) = stat $pwfile |
|
293
|
0 |
18 |
unless (-f _) |
|
298
|
1 |
17 |
if ($mode & 63) |
|
308
|
0 |
17 |
unless open my $fh, "<", $pwfile |
|
311
|
0 |
17 |
if $line =~ /^#/ |
|
313
|
0 |
17 |
unless my($host, $port, $db, $user, $pw) = $line =~ /((?:\\.|[^:])*)(?::|$)/g |
|
317
|
17 |
0 |
if $host eq '*' || $host eq $self->uri->host and $port eq '*' || $port eq $self->uri->port and $user eq '*' || $user eq $self->database_user and $db eq '*' || $db eq $self->database_name |
|
344
|
0 |
0 |
unless my $ssl = $self->ssl |
|
356
|
0 |
0 |
$eof ? : |
|
357
|
0 |
0 |
if $eof |
|
359
|
0 |
0 |
if ($resp eq 'S') { } |
|
|
0 |
0 |
elsif ($resp eq 'N') { } |
|
376
|
0 |
0 |
if $self->ssl == 2 |
|
397
|
0 |
0 |
unless $dsn =~ s/^DBI:Pg://i |
|
414
|
0 |
0 |
if exists $cfg->{'hostaddr'} |
|
529
|
0 |
0 |
if $v |
|
532
|
0 |
0 |
if (my $query = delete $self->{'active_query'}) |
|
533
|
0 |
0 |
unless $query->completed->is_ready |
|
537
|
0 |
0 |
if (my $db = $self->db) |
|
690
|
0 |
0 |
unless my $code = $AUTH_HANDLER{$msg->auth_type} |
|
708
|
0 |
0 |
unless my $q = $self->active_query |
|
716
|
0 |
0 |
$_ ? : |
|
717
|
0 |
0 |
if $self->stream |
|
724
|
0 |
0 |
unless (my $query = delete $self->{'active_query'}) |
|
729
|
0 |
0 |
unless $query->completed->is_ready |
|
746
|
0 |
0 |
if $self->db |
|
771
|
0 |
0 |
if (my $query = $self->active_query) { } |
|
774
|
0 |
0 |
unless $f->is_ready |
|
810
|
0 |
0 |
unless $query->ready_to_stream->is_ready |
|
820
|
0 |
0 |
unless (my $query = $self->active_query) |
|
861
|
0 |
0 |
if (my $param = $self->{'parameter'}{$k}) { } |
|
887
|
0 |
0 |
unless my $idle = $self->{'idle'} and $v |
|
888
|
0 |
0 |
unless $idle->is_ready |
|
895
|
0 |
0 |
if $self->{'active_query'} |
|
906
|
0 |
0 |
unless defined $txt and my $encoding = $self->encoding |
|
907
|
0 |
0 |
if $encoding eq "UTF-8" |
|
913
|
0 |
0 |
unless defined $txt and my $encoding = $self->encoding |
|
914
|
0 |
0 |
if $encoding eq "UTF-8" |
|
920
|
0 |
0 |
if $self->{'active_query'} |
|
944
|
0 |
0 |
unless ($query->{'in'}) |