File Coverage

blib/lib/mcoder/array/get.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package mcoder::array::get;
2              
3             our $VERSION = '0.01';
4              
5 1     1   674 use strict;
  1         2  
  1         39  
6 1     1   142 use warnings;
  1         2  
  1         99  
7              
8             require mcoder;
9              
10             sub import {
11 1     1   7 my $class=shift;
12 1         5 @_=($class, 'array_get', [@_]);
13 1         6 goto &mcoder::import
14             }
15              
16             1;
17             __END__