| blib/lib/App/Prove.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 86 | 130 | 66.1 |
| line | true | false | branch |
|---|---|---|---|
| 93 | 98 | 2718 | if (exists $args->{$attr}) |
| 129 | 0 | 2 | unless open RC, "<$rc_file" |
| 132 | 15 | 45 | if defined $_ |
| 158 | 39 | 87 | if ($arg eq '--norc') { } |
| 0 | 87 | elsif ($arg eq '--rc') { } | |
| 0 | 87 | elsif ($arg =~ /^--rc=(.+)$/) { } | |
| 162 | 0 | 0 | unless defined(my $rc = shift()) |
| 176 | 1 | 38 | if (defined(my $stop_at = _first_pos('::', @args))) |
| 186 | 0 | 39 | if (my(@bad) = map({"-$_";} grep({/^-(man|help)$/;} @args))) |
| 247 | 0 | 39 | unless &GetOptions('v|verbose', \$self->{'verbose'}, 'f|failures', \$self->{'failures'}, 'o|comments', \$self->{'comments'}, 'l|lib', \$self->{'lib'}, 'b|blib', \$self->{'blib'}, 's|shuffle', \$self->{'shuffle'}, 'color!', \$self->{'color'}, 'colour!', \$self->{'color'}, 'count!', \$self->{'show_count'}, 'c', \$self->{'color'}, 'D|dry', \$self->{'dry'}, 'ext=s@', sub { my($opt, $val) = @_; push @{$self->{'extensions'} ||= [];}, $val; } , 'harness=s', \$self->{'harness'}, 'ignore-exit', \$self->{'ignore_exit'}, 'source=s@', $self->{'sources'}, 'formatter=s', \$self->{'formatter'}, 'r|recurse', \$self->{'recurse'}, 'reverse', \$self->{'backwards'}, 'p|parse', \$self->{'parse'}, 'q|quiet', \$self->{'quiet'}, 'Q|QUIET', \$self->{'really_quiet'}, 'e|exec=s', \$self->{'exec'}, 'm|merge', \$self->{'merge'}, 'I=s@', $self->{'includes'}, 'M=s@', $self->{'modules'}, 'P=s@', $self->{'plugins'}, 'state=s@', $self->{'state'}, 'directives', \$self->{'directives'}, 'h|help|?', \$self->{'show_help'}, 'H|man', \$self->{'show_man'}, 'V|version', \$self->{'show_version'}, 'a|archive=s', \$self->{'archive'}, 'j|jobs=i', \$self->{'jobs'}, 'timer', \$self->{'timer'}, 'T', \$self->{'taint_fail'}, 't', \$self->{'taint_warn'}, 'W', \$self->{'warnings_fail'}, 'w', \$self->{'warnings_warn'}, 'normalize', \$self->{'normalize'}, 'rules=s@', $self->{'rules'}, 'tapversion=s', \$self->{'tapversion'}, 'trap', \$self->{'trap'}) |
| 259 | 1 | 83 | if $_[$_] eq $want |
| 268 | 0 | 0 | if (my $err = $@) |
| 290 | 0 | 60 | if $self->trap |
| 292 | 2 | 58 | defined $self->color ? : |
| 2 | 58 | if (defined $self->color ? $self->color : $self->_color_default) | |
| 295 | 60 | 0 | if (not defined $self->show_count) { } |
| 302 | 0 | 60 | if ($self->archive) |
| 307 | 0 | 60 | if (my $jobs = $self->jobs) |
| 311 | 0 | 60 | if (my $harness_opt = $self->harness) |
| 315 | 1 | 59 | if (my $formatter = $self->formatter) |
| 324 | 0 | 60 | if ($self->ignore_exit) |
| 328 | 0 | 60 | if ($self->taint_fail and $self->taint_warn) |
| 332 | 0 | 60 | if ($self->warnings_fail and $self->warnings_warn) |
| 339 | 11 | 109 | if defined $val |
| 345 | 9 | 171 | $self->$_ ? : |
| 348 | 0 | 60 | if @verb_adj > 1 |
| 354 | 8 | 352 | if $self->$a |
| 357 | 3 | 57 | if $self->parse |
| 360 | 5 | 55 | if defined $self->exec |
| 363 | 0 | 60 | if defined $self->tapversion |
| 365 | 1 | 59 | if (defined(my $test_args = $self->test_args)) |
| 369 | 0 | 60 | if (@{$self->rules;}) |
| 372 | 0 | 0 | if (/^par=(.*)/) { } |
| 0 | 0 | elsif (/^seq=(.*)/) { } | |
| 381 | 0 | 60 | if $self->{'harness_class'} |
| 389 | 0 | 5 | unless $class =~ /^ \w+ (?: :: \w+ ) *$/x |
| 395 | 3 | 1 | unless $@ |
| 399 | 2 | 0 | unless $@ |
| 407 | 2 | 3 | if ($name =~ /^(.*?)=(.*)/) |
| 412 | 5 | 0 | if (my $class = $self->_find_module($name, @search)) { } |
| 414 | 1 | 4 | if ($class->can('load')) |
| 438 | 0 | 0 | if ($v =~ /(? |
| 442 | 0 | 0 | if exists $config{$k} and ref $config{$k} ne 'HASH' |
| 449 | 0 | 0 | if (exists $config{$k}) { } |
| 451 | 0 | 0 | unless ref $config{$k} eq 'ARRAY' |
| 480 | 60 | 0 | unless ($self->state_manager) |
| 485 | 0 | 60 | if ($self->show_help) { } |
| 0 | 60 | elsif ($self->show_man) { } | |
| 0 | 60 | elsif ($self->show_version) { } | |
| 0 | 60 | elsif ($self->dry) { } | |
| 502 | 3 | 57 | if $self->verbose |
| 515 | 2 | 58 | if defined $ext |
| 516 | 60 | 0 | if (defined(my $state_switch = $self->state)) |
| 522 | 3 | 57 | if $self->shuffle |
| 523 | 2 | 58 | if $self->backwards |
| 556 | 1 | 59 | if ($self->taint_fail) { } |
| 1 | 58 | elsif ($self->taint_warn) { } | |
| 562 | 1 | 59 | if ($self->warnings_fail) { } |
| 1 | 58 | elsif ($self->warnings_warn) { } | |
| 569 | 4 | 56 | @switches ? : |
| 575 | 3 | 57 | if ($self->lib) |
| 578 | 3 | 57 | if ($self->blib) |
| 581 | 1 | 59 | if (@{$self->includes;}) |
| 589 | 7 | 53 | @libs ? : |
| 621 | 0 | 0 | if $@ |