File Coverage

blib/lib/Tie/IxHash/Extension.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package Tie::IxHash::Extension;
2             $Tie::IxHash::Extension::VERSION = '0.002';
3 3     3   12 use strict;
  3         3  
  3         102  
4 3     3   11 use warnings;
  3         5  
  3         73  
5 3     3   3240 use List::AllUtils;
  0            
  0            
6              
7             {
8             package Tie::IxHash;
9             $Tie::IxHash::VERSION = '0.002';
10             use constant ERROR_KEY_LENGTH_MISMATCH => "incorrect number of keys";
11              
12             sub RenameKeys {
13             my ($self, @names) = @_;
14             die ERROR_KEY_LENGTH_MISMATCH if @names != $self->Length;
15             my @values = $self->Values;
16             my @new_kv = List::AllUtils::mesh( @names, @values );
17             $self->Splice(0, $self->Length, @new_kv);
18             }
19              
20              
21             }
22              
23             1;
24              
25             __END__