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