| 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
|
|
309
|
3 |
1 |
unless my $pass = $self->password
|
|
317
|
2 |
1 |
unless my $pass = $self->password
|
|
326
|
2 |
1 |
unless my $pass = $self->password
|
|
339
|
1 |
1 |
$self->sqitch->verbosity > 1 ? :
|
|
349
|
1 |
0 |
unless ($uri->host)
|
|
367
|
0 |
2 |
$offset ? :
|
|
381
|
1 |
1 |
if $DBI::err == -902
|
|
422
|
1 |
1 |
if $self->_no_table_error and not $self->initialized
|
|
424
|
1 |
0 |
unless my $state = &try(sub {
|
|
426
|
0 |
0 |
unless (ref $state->{'tags'})
|
|
427
|
0 |
0 |
$state->{'tags'} ? :
|
|
439
|
0 |
0 |
if (my $d = delete $p{'direction'})
|
|
440
|
0 |
0 |
$d =~ /^DESC/i ? :
|
|
|
0 |
0 |
$d =~ /^ASC/i ? :
|
|
469
|
0 |
0 |
if ($regex =~ /^\^/ and $regex =~ /\$$/) { }
|
|
475
|
0 |
0 |
unless ($regex =~ /^\^/ or $regex =~ /\$$/)
|
|
479
|
0 |
0 |
if ($regex =~ /\$$/)
|
|
483
|
0 |
0 |
if ($regex =~ /^\^/)
|
|
493
|
0 |
0 |
if (my $e = delete $p{'event'})
|
|
500
|
0 |
0 |
@wheres ? :
|
|
506
|
0 |
0 |
if (exists $p{'limit'} or exists $p{'offset'})
|
|
508
|
0 |
0 |
if ($lim)
|
|
512
|
0 |
0 |
if (my $off = delete $p{'offset'})
|
|
518
|
0 |
0 |
if %p
|
|
546
|
0 |
0 |
unless my $row = $sth->fetchrow_hashref
|
|
587
|
0 |
0 |
$offset > 0 ? :
|
|
595
|
0 |
0 |
unless $offset
|
|
613
|
0 |
0 |
unless $offset
|
|
636
|
0 |
0 |
unless (ref $change->{'tags'})
|
|
637
|
0 |
0 |
$change->{'tags'} ? :
|
|
657
|
0 |
1 |
if (my $cid = $p{'change_id'})
|
|
667
|
0 |
1 |
if (my $change = $p{'change'})
|
|
668
|
0 |
0 |
if (my $tag = $p{'tag'})
|
|
670
|
0 |
0 |
if $tag eq "ROOT"
|
|
673
|
0 |
0 |
if $tag eq "HEAD"
|
|
699
|
0 |
0 |
if $p{'first'}
|
|
703
|
0 |
1 |
if (my $tag = $p{'tag'})
|
|
705
|
0 |
0 |
if $tag eq "HEAD"
|
|
708
|
0 |
0 |
if $tag eq "ROOT"
|
|
725
|
0 |
0 |
unless my(@tags) = $change->tags
|
|
833
|
0 |
0 |
if (my(@deps) = $change->dependencies)
|
|
847
|
0 |
0 |
if (my(@tags) = $change->tags)
|
|
880
|
0 |
2 |
$^O eq 'cygwin' ? :
|
|
890
|
0 |
2 |
unless open my $olderr, ">&", \*STDERR
|
|
894
|
0 |
2 |
unless open STDERR, ">", \my $stderr
|
|
905
|
1 |
29 |
if (-f $path and -x $path)
|
|
906
|
0 |
1 |
if (&try(sub {
|
|
908
|
0 |
0 |
unless open STDERR, ">&", $olderr
|
|
911
|
0 |
0 |
$loops ? :
|
|
919
|
0 |
2 |
unless open STDERR, ">&", $olderr
|