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 16     16   5153 use strict;
  16         37  
  16         460  
2 16     16   78 use warnings;
  16         35  
  16         2448  
3              
4             package App::Cmd::ArgProcessor 0.335;
5              
6             # ABSTRACT: App::Cmd-specific wrapper for Getopt::Long::Descriptive
7              
8             sub _process_args {
9 61     61   271 my ($class, $args, @params) = @_;
10 61         170 local @ARGV = @$args;
11              
12 61         7258 require Getopt::Long::Descriptive;
13 61         283881 Getopt::Long::Descriptive->VERSION(0.084);
14              
15 61         290 my ($opt, $usage) = Getopt::Long::Descriptive::describe_options(@params);
16              
17             return (
18 60         35025 $opt,
19             [ @ARGV ], # whatever remained
20             usage => $usage,
21             );
22             }
23              
24             1;
25              
26             __END__