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   4723 use strict;
  16         32  
  16         404  
2 16     16   66 use warnings;
  16         27  
  16         2249  
3              
4             package App::Cmd::ArgProcessor 0.334;
5              
6             # ABSTRACT: App::Cmd-specific wrapper for Getopt::Long::Descriptive
7              
8             sub _process_args {
9 61     61   227 my ($class, $args, @params) = @_;
10 61         154 local @ARGV = @$args;
11              
12 61         6447 require Getopt::Long::Descriptive;
13 61         246434 Getopt::Long::Descriptive->VERSION(0.084);
14              
15 61         258 my ($opt, $usage) = Getopt::Long::Descriptive::describe_options(@params);
16              
17             return (
18 60         30125 $opt,
19             [ @ARGV ], # whatever remained
20             usage => $usage,
21             );
22             }
23              
24             1;
25              
26             __END__