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