| line |
true |
false |
branch |
|
55
|
1 |
1 |
if ($uri->password)
|
|
190
|
0 |
0 |
if $err
|
|
204
|
0 |
1 |
if $self->initialized
|
|
237
|
1 |
15 |
unless my $file = $uri->dbname
|
|
243
|
11 |
4 |
unless my $host = $uri->host
|
|
244
|
0 |
4 |
unless my $port = $uri->_port
|
|
310
|
3 |
1 |
unless my $pass = $self->password
|
|
318
|
2 |
1 |
unless my $pass = $self->password
|
|
327
|
2 |
1 |
unless my $pass = $self->password
|
|
340
|
1 |
1 |
$self->sqitch->verbosity > 1 ? :
|
|
350
|
1 |
0 |
unless ($uri->host)
|
|
368
|
0 |
2 |
$offset ? :
|
|
382
|
1 |
1 |
if $DBI::err == -902
|
|
423
|
1 |
1 |
if $self->_no_table_error and not $self->initialized
|
|
425
|
1 |
0 |
unless my $state = &try(sub {
|
|
427
|
0 |
0 |
unless (ref $state->{'tags'})
|
|
428
|
0 |
0 |
$state->{'tags'} ? :
|
|
440
|
0 |
0 |
if (my $d = delete $p{'direction'})
|
|
441
|
0 |
0 |
$d =~ /^DESC/i ? :
|
|
|
0 |
0 |
$d =~ /^ASC/i ? :
|
|
470
|
0 |
0 |
if ($regex =~ /^\^/ and $regex =~ /\$$/) { }
|
|
476
|
0 |
0 |
unless ($regex =~ /^\^/ or $regex =~ /\$$/)
|
|
480
|
0 |
0 |
if ($regex =~ /\$$/)
|
|
484
|
0 |
0 |
if ($regex =~ /^\^/)
|
|
494
|
0 |
0 |
if (my $e = delete $p{'event'})
|
|
501
|
0 |
0 |
@wheres ? :
|
|
507
|
0 |
0 |
if (exists $p{'limit'} or exists $p{'offset'})
|
|
509
|
0 |
0 |
if ($lim)
|
|
513
|
0 |
0 |
if (my $off = delete $p{'offset'})
|
|
519
|
0 |
0 |
if %p
|
|
547
|
0 |
0 |
unless my $row = $sth->fetchrow_hashref
|
|
591
|
0 |
0 |
$offset > 0 ? :
|
|
599
|
0 |
0 |
unless $offset
|
|
617
|
0 |
0 |
unless $offset
|
|
640
|
0 |
0 |
unless (ref $change->{'tags'})
|
|
641
|
0 |
0 |
$change->{'tags'} ? :
|
|
661
|
0 |
1 |
if (my $cid = $p{'change_id'})
|
|
671
|
0 |
1 |
if (my $change = $p{'change'})
|
|
672
|
0 |
0 |
if (my $tag = $p{'tag'})
|
|
674
|
0 |
0 |
if $tag eq "ROOT"
|
|
677
|
0 |
0 |
if $tag eq "HEAD"
|
|
703
|
0 |
0 |
if $p{'first'}
|
|
707
|
0 |
1 |
if (my $tag = $p{'tag'})
|
|
709
|
0 |
0 |
if $tag eq "HEAD"
|
|
712
|
0 |
0 |
if $tag eq "ROOT"
|
|
729
|
0 |
0 |
unless my(@tags) = $change->tags
|
|
838
|
0 |
0 |
if $self->_unique_error
|
|
845
|
0 |
0 |
if (my(@deps) = $change->dependencies)
|
|
859
|
0 |
0 |
if (my(@tags) = $change->tags)
|
|
892
|
0 |
2 |
$^O eq 'cygwin' ? :
|
|
902
|
0 |
2 |
unless open my $olderr, ">&", \*STDERR
|
|
906
|
0 |
2 |
unless open STDERR, ">", \my $stderr
|
|
917
|
1 |
29 |
if (-f $path and -x $path)
|
|
918
|
0 |
1 |
if (&try(sub {
|
|
920
|
0 |
0 |
unless open STDERR, ">&", $olderr
|
|
923
|
0 |
0 |
$loops ? :
|
|
931
|
0 |
2 |
unless open STDERR, ">&", $olderr
|