File Coverage

blib/lib/Devel/PL_origargv.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Devel::PL_origargv;
2              
3 1     1   26515 use 5.006;
  1         3  
  1         42  
4 1     1   5 use strict;
  1         2  
  1         37  
5 1     1   5 use warnings;
  1         7  
  1         172  
6              
7             BEGIN {
8 1     1   2 our $AUTHORITY = 'cpan:TOBYINK';
9 1         2 our $VERSION = '0.004';
10            
11 1         5 require DynaLoader;
12 1         19 our @ISA = qw(DynaLoader);
13 1         566 __PACKAGE__->bootstrap($VERSION);
14             };
15              
16              
17             sub get {
18 2 100   2 1 948 return _my_argc unless wantarray;
19 1         18 map _my_argv($_), 1 .. _my_argc;
20             }
21              
22             __PACKAGE__
23             __END__