| blib/lib/App/Prove.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 86 | 130 | 66.1 |
| line | true | false | branch |
|---|---|---|---|
| 94 | 98 | 2782 | if (exists $args->{$attr}) |
| 130 | 0 | 2 | unless open RC, "<$rc_file" |
| 133 | 15 | 45 | if defined $_ |
| 159 | 39 | 87 | if ($arg eq '--norc') { } |
| 0 | 87 | elsif ($arg eq '--rc') { } | |
| 0 | 87 | elsif ($arg =~ /^--rc=(.+)$/) { } | |
| 163 | 0 | 0 | unless defined(my $rc = shift()) |
| 177 | 1 | 38 | if (defined(my $stop_at = _first_pos('::', @args))) |
| 187 | 0 | 39 | if (my(@bad) = map({"-$_";} grep({/^-(man|help)$/;} @args))) |
| 249 | 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'}, 'statefile=s', \$self->{'statefile'}, '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'}) |
| 261 | 1 | 83 | if $_[$_] eq $want |
| 270 | 0 | 0 | if (my $err = $@) |
| 292 | 0 | 60 | if $self->trap |
| 294 | 2 | 58 | defined $self->color ? : |
| 2 | 58 | if (defined $self->color ? $self->color : $self->_color_default) | |
| 297 | 60 | 0 | if (not defined $self->show_count) { } |
| 304 | 0 | 60 | if ($self->archive) |
| 309 | 0 | 60 | if (my $jobs = $self->jobs) |
| 313 | 0 | 60 | if (my $harness_opt = $self->harness) |
| 317 | 1 | 59 | if (my $formatter = $self->formatter) |
| 326 | 0 | 60 | if ($self->ignore_exit) |
| 330 | 0 | 60 | if ($self->taint_fail and $self->taint_warn) |
| 334 | 0 | 60 | if ($self->warnings_fail and $self->warnings_warn) |
| 341 | 11 | 109 | if defined $val |
| 347 | 9 | 171 | $self->$_ ? : |
| 350 | 0 | 60 | if @verb_adj > 1 |
| 356 | 8 | 352 | if $self->$a |
| 359 | 3 | 57 | if $self->parse |
| 362 | 5 | 55 | if defined $self->exec |
| 365 | 0 | 60 | if defined $self->tapversion |
| 367 | 1 | 59 | if (defined(my $test_args = $self->test_args)) |
| 371 | 0 | 60 | if (@{$self->rules;}) |
| 374 | 0 | 0 | if (/^par=(.*)/) { } |
| 0 | 0 | elsif (/^seq=(.*)/) { } | |
| 383 | 0 | 60 | if $self->{'harness_class'} |
| 391 | 0 | 5 | unless $class =~ /^ \w+ (?: :: \w+ ) *$/x |
| 397 | 3 | 1 | unless $@ |
| 401 | 2 | 0 | unless $@ |
| 409 | 2 | 3 | if ($name =~ /^(.*?)=(.*)/) |
| 414 | 5 | 0 | if (my $class = $self->_find_module($name, @search)) { } |
| 416 | 1 | 4 | if ($class->can('load')) |
| 440 | 0 | 0 | if ($v =~ /(? |
| 444 | 0 | 0 | if exists $config{$k} and ref $config{$k} ne 'HASH' |
| 451 | 0 | 0 | if (exists $config{$k}) { } |
| 453 | 0 | 0 | unless ref $config{$k} eq 'ARRAY' |
| 482 | 60 | 0 | unless ($self->state_manager) |
| 487 | 0 | 60 | if ($self->show_help) { } |
| 0 | 60 | elsif ($self->show_man) { } | |
| 0 | 60 | elsif ($self->show_version) { } | |
| 0 | 60 | elsif ($self->dry) { } | |
| 504 | 3 | 57 | if $self->verbose |
| 517 | 2 | 58 | if defined $ext |
| 518 | 60 | 0 | if (defined(my $state_switch = $self->state)) |
| 524 | 3 | 57 | if $self->shuffle |
| 525 | 2 | 58 | if $self->backwards |
| 558 | 1 | 59 | if ($self->taint_fail) { } |
| 1 | 58 | elsif ($self->taint_warn) { } | |
| 564 | 1 | 59 | if ($self->warnings_fail) { } |
| 1 | 58 | elsif ($self->warnings_warn) { } | |
| 571 | 4 | 56 | @switches ? : |
| 577 | 3 | 57 | if ($self->lib) |
| 580 | 3 | 57 | if ($self->blib) |
| 583 | 1 | 59 | if (@{$self->includes;}) |
| 591 | 7 | 53 | @libs ? : |
| 623 | 0 | 0 | if $@ |