| blib/lib/App/Grok.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 64 | 1.5 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 0 | 1 | if ($^O eq 'Win32') { } |
| 49 | 0 | 0 | if ($opt{'update'}) { } |
| 0 | 0 | elsif ($opt{'index'}) { } | |
| 60 | 0 | 0 | defined $opt{'file'} ? : |
| 62 | 0 | 0 | if ($opt{'locate'}) { } |
| 63 | 0 | 0 | if (defined $opt{'file'}) { } |
| 68 | 0 | 0 | defined $file ? : |
| 76 | 0 | 0 | if ($opt{'file'}) { } |
| 83 | 0 | 0 | unless defined $rendered |
| 104 | 0 | 0 | defined $VERSION ? : |
| 108 | 0 | 0 | $GOT_ANSI ? : |
| 0 | 0 | unless GetOptions 'F|file=s', \$opt{'file'}, 'h|help', sub { pod2usage(1); } , 'i|index', \$opt{'index'}, 'l|locate', \$opt{'locate'}, 'o|output=s', \($opt{'output'} = $GOT_ANSI ? 'ansi' : 'text'), 'T|no-pager', \$opt{'no_pager'}, 'u|unformatted', sub { $opt{'output'} = 'pod'; } , 'U|update', \$opt{'update'}, 'V|version', sub { no strict 'vars'; my $version = defined $VERSION ? $VERSION : 'dev-git'; print "grok $version\n"; exit; } | |
| 110 | 0 | 0 | unless ($opt{'update'} or $opt{'index'} or defined $opt{'file'} or @ARGV) |
| 132 | 0 | 0 | unless defined $found |
| 133 | 0 | 0 | unless defined $found |
| 134 | 0 | 0 | unless defined $found |
| 135 | 0 | 0 | unless defined $found |
| 137 | 0 | 0 | if defined $found |
| 146 | 0 | 0 | unless defined $first_pod |
| 148 | 0 | 0 | if ($first_pod =~ /^=(?:pod|head\d+|over)$/ or $target =~ /^=cut\b/m) { } |
| 161 | 0 | 0 | unless defined $found |
| 162 | 0 | 0 | unless defined $found |
| 163 | 0 | 0 | unless defined $found |
| 164 | 0 | 0 | unless defined $found |
| 165 | 0 | 0 | unless defined $found |
| 169 | 0 | 0 | if $@ |
| 176 | 0 | 0 | unless open my $handle, '<', $file |
| 182 | 0 | 0 | if $@ |
| 189 | 0 | 0 | if ($opt{'no_pager'} or not is_interactive()) { } |
| 193 | 0 | 0 | defined $ENV{'PAGER'} ? : |
| 197 | 0 | 0 | if $pager =~ /less/ and $output eq 'ansi' |
| 204 | 0 | 0 | $^O eq 'MSWin32' ? : |