File Coverage

blib/lib/KinoSearch1/Util/IntMap.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition 1 3 33.3
subroutine 5 5 100.0
pod 1 1 100.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package KinoSearch1::Util::IntMap;
2 34     34   182 use strict;
  34         69  
  34         1201  
3 34     34   177 use warnings;
  34         75  
  34         805  
4 34     34   179 use KinoSearch1::Util::ToolSet;
  34         73  
  34         10686  
5 34     34   206 use base qw( KinoSearch1::Util::Class );
  34         69  
  34         4557  
6              
7             sub new {
8 34     34 1 57 my ( $class, $map ) = @_;
9 34   33     151 $class = ref($class) || $class;
10 34         155 return bless $map, $class;
11             }
12              
13             1;
14              
15             __END__