File Coverage

blib/lib/Digest/FNV.pm

Criterion	Covered	Total	%
statement	48	59	81.3
branch	0	4	0.0
condition			n/a
subroutine	11	13	84.6
pod	0	3	0.0
total	59	79	74.6

package Digest::FNV;

use 5.010000;
use strict;
use warnings;
use Carp;

require Exporter;
use AutoLoader;
#use Data::Dumper;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Digest::FNV ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
#our %EXPORT_TAGS = ( 'all' => [ qw(
#	FNV0_32_INIT
#	FNV1A_64_LOWER
#	FNV1A_64_UPPER
#	FNV1_32A_INIT
#	FNV1_32_INIT
#	FNV1_64_LOWER
#	FNV1_64_UPPER
#) ] );

our @EXPORT_OK = (  );

our @EXPORT = qw( fnv  fnv32  fnv32a  fnv64  fnv64a );
#= qw(
#	FNV0_32_INIT
#	FNV1A_64_LOWER
#	FNV1A_64_UPPER
#	FNV1_32A_INIT
#	FNV1_32_INIT
#	FNV1_64_LOWER
#	FNV1_64_UPPER
#);

our $VERSION = '2.00';

sub AUTOLOAD {
    # This AUTOLOAD is used to 'autoload' constants from the constant()
    # XS function.

    my $constname;
    our $AUTOLOAD;
    ($constname = $AUTOLOAD) =~ s/.*:://;
    croak "&Digest::FNV::constant not defined" if $constname eq 'constant';
    my ($error, $val) = constant($constname);
    if ($error) { croak $error; }
    {
	no strict 'refs';
	# Fixed between 5.005_53 and 5.005_61
#XXX	if ($] >= 5.00561) {
#XXX	    *$AUTOLOAD = sub () { $val };
#XXX	}
#XXX	else {
	    *$AUTOLOAD = sub { $val };
#XXX	}
    }
    goto &$AUTOLOAD;
}

require XSLoader;
XSLoader::load('Digest::FNV', $VERSION);

# Preloaded methods go here.

sub fnv {
    my ($string) = @_;
    return fnv32($string);
}

sub fnv64 {
    my ($string) = @_;
    my @fnv_hash = fnv64_t($string);
    #print Dumper(\@fnv_hash); print "\n";

    my %hash = ();
    # This is a little test for what kind of system we're on, 32 or 64
    if ( (1 << 32) != 4294967296) {
        $hash{'bits'} = 32;
    }
    else {
        $hash{'bits'} = 64;
    }

    $hash{'longlong'} = ($fnv_hash[1] << 32) | $fnv_hash[0] + 0;
    $hash{'lower'} = $fnv_hash[0];
    $hash{'upper'} = $fnv_hash[1];

    use bigint;
    my $retval = ($fnv_hash[1] << 32) | $fnv_hash[0];
    $hash{'bigint'} = $retval;  # very likely a string

    return \%hash;
}

sub fnv64a {
    my ($string) = @_;
    my @fnv_hash = fnv64a_t($string);
    #print Dumper(\@fnv_hash); print "\n";

    my %hash = ();
    # This is a little test for what kind of system we're on, 32 or 64
    if ( (1 << 32) != 4294967296) {
        $hash{'bits'} = 32;
    }
    else {
        $hash{'bits'} = 64;
    }

    $hash{'longlong'} = ($fnv_hash[1] << 32) | $fnv_hash[0] + 0;
    $hash{'lower'} = $fnv_hash[0];
    $hash{'upper'} = $fnv_hash[1];

    use bigint;
    my $retval = ($fnv_hash[1] << 32) | $fnv_hash[0];
    $hash{'bigint'} = $retval;  # very likely a string

    return \%hash;
}

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__