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
|
244
|
11 |
4 |
unless my $host = $uri->host
|
245
|
0 |
4 |
unless my $port = $uri->_port
|
307
|
3 |
1 |
unless my $pass = $self->password
|
315
|
2 |
1 |
unless my $pass = $self->password
|
324
|
2 |
1 |
unless my $pass = $self->password
|
337
|
1 |
1 |
$self->sqitch->verbosity > 1 ? :
|
347
|
1 |
0 |
unless ($uri->host)
|
365
|
0 |
2 |
$offset ? :
|
379
|
1 |
1 |
if $DBI::err == -902
|
420
|
1 |
1 |
if $self->_no_table_error and not $self->initialized
|
422
|
1 |
0 |
unless my $state = &try(sub {
|
424
|
0 |
0 |
unless (ref $state->{'tags'})
|
425
|
0 |
0 |
$state->{'tags'} ? :
|
437
|
0 |
0 |
if (my $d = delete $p{'direction'})
|
438
|
0 |
0 |
$d =~ /^DESC/i ? :
|
|
0 |
0 |
$d =~ /^ASC/i ? :
|
467
|
0 |
0 |
if ($regex =~ /^\^/ and $regex =~ /\$$/) { }
|
473
|
0 |
0 |
unless ($regex =~ /^\^/ or $regex =~ /\$$/)
|
477
|
0 |
0 |
if ($regex =~ /\$$/)
|
481
|
0 |
0 |
if ($regex =~ /^\^/)
|
491
|
0 |
0 |
if (my $e = delete $p{'event'})
|
498
|
0 |
0 |
@wheres ? :
|
504
|
0 |
0 |
if (exists $p{'limit'} or exists $p{'offset'})
|
506
|
0 |
0 |
if ($lim)
|
510
|
0 |
0 |
if (my $off = delete $p{'offset'})
|
516
|
0 |
0 |
if %p
|
544
|
0 |
0 |
unless my $row = $sth->fetchrow_hashref
|
585
|
0 |
0 |
$offset > 0 ? :
|
593
|
0 |
0 |
unless $offset
|
611
|
0 |
0 |
unless $offset
|
634
|
0 |
0 |
unless (ref $change->{'tags'})
|
635
|
0 |
0 |
$change->{'tags'} ? :
|
655
|
0 |
1 |
if (my $cid = $p{'change_id'})
|
665
|
0 |
1 |
if (my $change = $p{'change'})
|
666
|
0 |
0 |
if (my $tag = $p{'tag'})
|
668
|
0 |
0 |
if $tag eq "ROOT"
|
671
|
0 |
0 |
if $tag eq "HEAD"
|
697
|
0 |
0 |
if $p{'first'}
|
701
|
0 |
1 |
if (my $tag = $p{'tag'})
|
703
|
0 |
0 |
if $tag eq "HEAD"
|
706
|
0 |
0 |
if $tag eq "ROOT"
|
723
|
0 |
0 |
unless my(@tags) = $change->tags
|
831
|
0 |
0 |
if (my(@deps) = $change->dependencies)
|
845
|
0 |
0 |
if (my(@tags) = $change->tags)
|
878
|
0 |
2 |
$^O eq 'cygwin' ? :
|
888
|
0 |
2 |
unless open my $olderr, ">&", \*STDERR
|
892
|
0 |
2 |
unless open STDERR, ">", \my $stderr
|
903
|
1 |
29 |
if (-f $path and -x $path)
|
904
|
0 |
1 |
if (&try(sub {
|
906
|
0 |
0 |
unless open STDERR, ">&", $olderr
|
909
|
0 |
0 |
$loops ? :
|
917
|
0 |
2 |
unless open STDERR, ">&", $olderr
|