| blib/lib/Mason/Tidy/App.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 30 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 5 | 0 | $msg ? : |
| 43 | 0 | 9 | if (my $envvar = $ENV{'MASONTIDY_OPT'}) |
| 47 | 0 | 0 | unless @argv or $source |
| 52 | 0 | 9 | unless GetOptions 'h|help', \$help, 'm|mason-version=i', \$params{'mason_version'}, 'p|pipe', \$pipe, 'r|replace', \$replace, 'indent-block=i', \$params{'indent_block'}, 'indent-perl-block=i', \$params{'indent_perl_block'}, 'perltidy-argv=s', \$params{'perltidy_argv'}, 'perltidy-block-argv=s', \$params{'perltidy_block_argv'}, 'perltidy-line-argv=s', \$params{'perltidy_line_argv'}, 'perltidy-tag-argv=s', \$params{'perltidy_tag_argv'}, 'version', \$version |
| 69 | 0 | 9 | if $version |
| 70 | 0 | 9 | if $help |
| 71 | 1 | 8 | unless defined $params{'mason_version'} |
| 72 | 1 | 7 | unless $params{'mason_version'} =~ /^[12]$/ |
| 73 | 1 | 6 | if $pipe and @argv |
| 74 | 1 | 0 | unless $pipe or @argv or defined $source |
| 75 | 1 | 4 | if @argv > 1 and not $replace |
| 78 | 0 | 4 | if (defined $source) { } |
| 0 | 4 | elsif ($pipe) { } | |
| 87 | 2 | 3 | if @argv > 1 |
| 90 | 2 | 3 | if ($replace) { } |