Branch Coverage

support/cmdline.yp
Criterion Covered Total %
branch 62 114 54.3


line true false branch
23 0 4 if ($App::GitFind::cmdline::SHOW_AST // 0) { }
29 0 78 wantarray ? :
71 0 42 unless ref $_ eq 'HASH'
79 0 0 unless @_ eq 1
81 0 0 unless ref $h eq 'HASH'
82 0 0 unless keys %$h eq 1
83 0 0 unless (keys %$h)[0] eq 'expr'
93 0 20 if ref $class
179 6 0 if $_[1] ne 'prune'
196 2676 0 @_ ? :
198 0 2676 unless defined $arg and length $arg > 0
201 40 2636 if (index($arg, '/') != -1)
202 0 40 if index($arg, '/.') != -1 or index($arg, '.lock/') != -1 or substr($arg, 0, 1) eq '.' or substr($arg, -5) eq '.lock'
211 0 2676 if index($arg, '..') != -1
217 6 2670 if substr($arg, 0, 1) eq '/' or substr($arg, -1) eq '/' or index($arg, '//') != -1
223 21 2649 if substr($arg, -1) eq '.'
226 0 2649 if index($arg, '@{') != -1
235 1455 1194 if substr($arg, 0, 2) eq '--'
335 149 0 @_ ? :
337 2 147 unless defined $arg and length $arg > 0
351 20 14 if ($lrArgv->[0] =~ /$ARGTEST_cached/)
362 20 0 unless ($opts{'nparam'} > 0)
369 0 0 if (ref $opts{'nparam'} eq 'Regexp')
371 0 0 if @$lrArgv == 1
375 0 0 if $lrArgv->[$_] =~ /$opts{'nparam'}/
377 0 0 unless defined $lastarg
387 0 0 unless @$lrArgv >= $opts{'nparam'} + 1
390 0 0 if ($opts{'validator'})
392 0 0 if defined $errmsg
407 2 12 if $arg eq ','
408 1 13 if $arg =~ /^(?:-o|--o|-or|--or|\|\|)$/
409 0 14 if $arg =~ /^(?:-a|--a|-and|--and|&&)$/
410 0 14 if $arg =~ /^(?:-not|--not|!|\^)$/
411 0 14 if $arg =~ /^[([]$/
412 0 14 if $arg =~ /^[])]$/
414 3 11 if (@retval)
428 11 10 if ($lrArgv->[0] =~ /^-([a-zA-z0-9\?])$/) { }
0 10 elsif ($lrArgv->[0] =~ /^--?(help|man|usage|version)$/) { }
443 10 0 if (_is_valid_rev($arg))
458 17 47 unless @$lrArgv
465 8 39 if ($lrArgv->[0] eq '--')
467 3 5 unless @$lrArgv > 1
472 16 28 if ($parser->YYData->{'HAS_DASH_DASH'}) { }
475 10 6 if (not $parser->YYData->{'ONLY_EXPRESSIONS'}) { }
478 5 5 if @retval
481 5 0 if (@retval)
482 0 5 if ($retval[1] eq ']]') { }
494 6 0 if @retval
505 17 11 if @retval
510 6 5 if @retval
514 5 0 if (@retval)
515 0 5 if ($retval[1] eq ']]') { }
534 0 0 if $parser->YYCurval
536 0 0 if (ref $parser->YYExpect eq 'ARRAY')
556 0 20 unless my $lrArgv = shift()
577 0 20 @_ ? :
583 20 0 if $hrRetval