| line |
true |
false |
branch |
|
55
|
1 |
1 |
if ($uri->password)
|
|
193
|
0 |
0 |
if $err
|
|
207
|
0 |
1 |
if $self->initialized
|
|
240
|
1 |
15 |
unless my $file = $uri->dbname
|
|
246
|
11 |
4 |
unless my $host = $uri->host
|
|
247
|
0 |
4 |
unless my $port = $uri->_port
|
|
313
|
3 |
1 |
unless my $pass = $self->password
|
|
321
|
2 |
1 |
unless my $pass = $self->password
|
|
330
|
2 |
1 |
unless my $pass = $self->password
|
|
343
|
1 |
1 |
$self->sqitch->verbosity > 1 ? :
|
|
353
|
1 |
0 |
unless ($uri->host)
|
|
371
|
0 |
2 |
$offset ? :
|
|
385
|
1 |
1 |
if $DBI::err == -902
|
|
426
|
1 |
1 |
if $self->_no_table_error and not $self->initialized
|
|
428
|
1 |
0 |
unless my $state = &try(sub {
|
|
430
|
0 |
0 |
unless (ref $state->{'tags'})
|
|
431
|
0 |
0 |
$state->{'tags'} ? :
|
|
443
|
0 |
0 |
if (my $d = delete $p{'direction'})
|
|
444
|
0 |
0 |
$d =~ /^DESC/i ? :
|
|
|
0 |
0 |
$d =~ /^ASC/i ? :
|
|
473
|
0 |
0 |
if ($regex =~ /^\^/ and $regex =~ /\$$/) { }
|
|
479
|
0 |
0 |
unless ($regex =~ /^\^/ or $regex =~ /\$$/)
|
|
483
|
0 |
0 |
if ($regex =~ /\$$/)
|
|
487
|
0 |
0 |
if ($regex =~ /^\^/)
|
|
497
|
0 |
0 |
if (my $e = delete $p{'event'})
|
|
504
|
0 |
0 |
@wheres ? :
|
|
510
|
0 |
0 |
if (exists $p{'limit'} or exists $p{'offset'})
|
|
512
|
0 |
0 |
if ($lim)
|
|
516
|
0 |
0 |
if (my $off = delete $p{'offset'})
|
|
522
|
0 |
0 |
if %p
|
|
550
|
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
|