File Coverage

blib/lib/Algorithm/LSH/Hash.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Algorithm::LSH::Hash;
2 3     3   637 use strict;
  3         6  
  3         132  
3 3     3   17 use warnings;
  3         5  
  3         79  
4 3     3   15 use base qw(Algorithm::LSH::Base);
  3         6  
  3         950  
5              
6             __PACKAGE__->mk_virtual_methods($_) for qw(do_hashing);
7              
8             sub new {
9 5     5 1 27 my $class = shift;
10 5         37 my $self = $class->SUPER::new(@_);
11 5         38 $self->_check_parameters;
12 5         58 return $self;
13             }
14              
15             1;
16             __END__