File Coverage

blib/lib/App/Cmd/Plugin.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 14 100.0


line stmt bran cond sub pod time code
1 6     6   37 use strict;
  6         11  
  6         156  
2 6     6   25 use warnings;
  6         9  
  6         579  
3             package App::Cmd::Plugin 0.334;
4              
5             # ABSTRACT: a plugin for App::Cmd commands
6              
7             sub _faux_curried_method {
8 4     4   1015 my ($class, $name, $arg) = @_;
9              
10             return sub {
11 1     1   7 my $cmd = $App::Cmd::active_cmd;
12 1         8 $class->$name($cmd, @_);
13             }
14 4         18 }
15              
16             1;
17              
18             __END__