| blib/lib/Module/Version/App.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 26 | 92.3 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 0 | 12 | if ($self->{'local_lib'} and -d $self->{'local_lib'}) |
| 28 | 9 | 3 | if $self->{'modules'} |
| 30 | 2 | 10 | if (my $file = $self->{'input'}) |
| 31 | 1 | 1 | unless open my $fh, '<', $file |
| 37 | 0 | 1 | unless close $fh |
| 41 | 2 | 9 | if ($self->{'include'}) |
| 44 | 1 | 1 | unless ref $include eq 'ARRAY' |
| 51 | 1 | 9 | unless @modules |
| 55 | 3 | 6 | unless ($version) |
| 56 | 1 | 2 | unless $self->{'quiet'} |
| 62 | 5 | 1 | unless $self->{'dev'} |
| 64 | 1 | 5 | $self->{'full'} ? : |
| 81 | 1 | 14 | unless &GetOptions('h|help', sub { $self->help; } , 'f|full!', \$self->{'full'}, 'i|input=s', \$self->{'input'}, 'l|local-lib=s', \$self->{'local_lib'}, 'I|include=s@', \$self->{'include'}, 'd|dev!', \$self->{'dev'}, 'q|quiet!', \$self->{'quiet'}, '<>', sub { $self->process(@_); } ) |