File Coverage

blib/lib/App/Cmd/ArgProcessor.pm
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 16 17 94.1


line stmt bran cond sub pod time code
1 17     17   6902 use strict;
  17         45  
  17         841  
2 17     17   105 use warnings;
  17         34  
  17         4153  
3              
4             package App::Cmd::ArgProcessor 0.339;
5              
6             # ABSTRACT: App::Cmd-specific wrapper for Getopt::Long::Descriptive
7              
8             sub _process_args {
9 69     69   458 my ($class, $args, @params) = @_;
10 69         253 local @ARGV = @$args;
11              
12 69         9656 require Getopt::Long::Descriptive;
13 69 50       476193 Getopt::Long::Descriptive->VERSION(0.116)
14             if Getopt::Long::Descriptive->VERSION;
15              
16 69         439 my ($opt, $usage) = Getopt::Long::Descriptive::describe_options(@params);
17              
18             return (
19 67         67403 $opt,
20             [ @ARGV ], # whatever remained
21             usage => $usage,
22             );
23             }
24              
25             1;
26              
27             __END__