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   6156 use strict;
  17         45  
  17         656  
2 17     17   78 use warnings;
  17         46  
  17         4389  
3              
4             package App::Cmd::ArgProcessor 0.340;
5              
6             # ABSTRACT: App::Cmd-specific wrapper for Getopt::Long::Descriptive
7              
8             sub _process_args {
9 69     69   515 my ($class, $args, @params) = @_;
10 69         211 local @ARGV = @$args;
11              
12 69         8592 require Getopt::Long::Descriptive;
13 69 50       381822 Getopt::Long::Descriptive->VERSION(0.116)
14             if Getopt::Long::Descriptive->VERSION;
15              
16 69         426 my ($opt, $usage) = Getopt::Long::Descriptive::describe_options(@params);
17              
18             return (
19 67         58187 $opt,
20             [ @ARGV ], # whatever remained
21             usage => $usage,
22             );
23             }
24              
25             1;
26              
27             __END__