File Coverage

blib/lib/Digest/MurmurHash3.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 23 23 100.0


line stmt bran cond sub pod time code
1             package Digest::MurmurHash3;
2 1     1   23870 use strict;
  1         2  
  1         32  
3 1     1   5 use base qw(Exporter);
  1         2  
  1         97  
4 1     1   4 use Config ();
  1         53  
  1         21  
5 1     1   5 use constant HAVE_64BITINT => $Config::Config{use64bitint};
  1         1  
  1         46  
6 1     1   4 use XSLoader;
  1         2  
  1         36  
7             BEGIN {
8 1     1   2 our $VERSION = '0.03';
9 1         289050 XSLoader::load __PACKAGE__, $VERSION;
10             }
11              
12             our @EXPORT_OK = qw( murmur32 mumur128 murmur128_x86 murmur128_x64 );
13             if ( ! HAVE_64BITINT ) {
14             *murmur128_x64 = sub {
15             Carp::croak( "64bit integers are not supported on your perl" );
16             };
17             *murmur128 = \&murmur128_x64;
18             } else {
19             *murmur128 = \&murmur128_x86;
20             }
21              
22             1;
23             __END__