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   41 use strict;
  6         14  
  6         183  
2 6     6   31 use warnings;
  6         14  
  6         647  
3             package App::Cmd::Plugin 0.335;
4              
5             # ABSTRACT: a plugin for App::Cmd commands
6              
7             sub _faux_curried_method {
8 4     4   1176 my ($class, $name, $arg) = @_;
9              
10             return sub {
11 1     1   7 my $cmd = $App::Cmd::active_cmd;
12 1         7 $class->$name($cmd, @_);
13             }
14 4         41 }
15              
16             1;
17              
18             __END__