blib/lib/App/CLI/Command/Help.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 14 | 16 | 87.5 |
line | true | false | branch |
---|---|---|---|
53 | 3 | 4 | unless @topics |
56 | 4 | 3 | if ($topic eq 'commands') { } |
1 | 2 | elsif (my $cmd = eval { do { $self->app->get_cmd($topic) } }) { } | |
1 | 1 | elsif (my $file = $self->_find_topic($topic)) { } | |
63 | 0 | 1 | unless open my $fh, '<:encoding(UTF-8)', $file |
90 | 1 | 1 | unless ($inc) |
99 | 0 | 1 | if $prefix[0] ne $base |
107 | 1 | 49 | if -f $file |