File Coverage

blib/lib/App/Cmd/ArgProcessor.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1 17     17   5216 use strict;
  17         36  
  17         534  
2 17     17   90 use warnings;
  17         38  
  17         2610  
3              
4             package App::Cmd::ArgProcessor 0.336;
5              
6             # ABSTRACT: App::Cmd-specific wrapper for Getopt::Long::Descriptive
7              
8             sub _process_args {
9 64     64   250 my ($class, $args, @params) = @_;
10 64         181 local @ARGV = @$args;
11              
12 64         7979 require Getopt::Long::Descriptive;
13 64         307358 Getopt::Long::Descriptive->VERSION(0.084);
14              
15 64         287 my ($opt, $usage) = Getopt::Long::Descriptive::describe_options(@params);
16              
17             return (
18 62         35833 $opt,
19             [ @ARGV ], # whatever remained
20             usage => $usage,
21             );
22             }
23              
24             1;
25              
26             __END__