File Coverage

blib/lib/Data/LnArray/XS.pm
Criterion Covered Total %
statement 14 14 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Data::LnArray::XS;
2              
3 36     36   4174652 use 5.006;
  36         138  
4 36     36   237 use strict;
  36         225  
  36         1262  
5 36     36   224 use warnings;
  36         112  
  36         3053  
6              
7             our $VERSION = '0.11';
8              
9 36     36   213 use base 'Import::Export';
  36         93  
  36         18812  
10              
11             our %EX = (
12             arr => [qw/all/],
13             );
14              
15             require XSLoader;
16             XSLoader::load('Data::LnArray::XS', $VERSION);
17              
18             sub splice {
19 2 50   2 1 144892 splice @{$_[0]}, $_[1], $_[2], ($_[3] ? $_[3] : ());
  2         18  
20 2         12 return $_[0];
21             }
22              
23             1;
24              
25             __END__