/usr/lib/perl5/Digest/JHash.pm is in libdigest-jhash-perl 0.06-1build2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 | package Digest::JHash;
use strict;
use warnings;
require Exporter;
require DynaLoader;
use vars qw(@ISA @EXPORT_OK $VERSION);
@ISA = qw(Exporter DynaLoader);
@EXPORT_OK = qw( jhash );
$VERSION = '0.06';
bootstrap Digest::JHash $VERSION;
1;
__END__
=pod
=for stopwords JHash burtleburtle bigpond Jenkins
=head1 NAME
Digest::JHash - Perl extension for 32 bit Jenkins Hashing Algorithm
=head1 SYNOPSIS
use Digest::JHash qw(jhash);
$digest = jhash($data);
# note that calling jhash() directly like this is the fastest way:
$digest = Digest::JHash::jhash($data);
=head1 DESCRIPTION
The C<Digest::JHash> module allows you to use the fast JHash hashing algorithm
developed by Bob Jenkins from within Perl programs. The algorithm takes as
input a message of arbitrary length and produces as output a 32-bit
"message digest" of the input in the form of an unsigned long integer.
Call it a low calorie version of MD5 if you like.
See http://burtleburtle.net/bob/hash/doobs.html for more information.
=head1 FUNCTIONS
=over 4
=item jhash($data)
This function will calculate the JHash digest of the "message" in $data
and return a 32 bit integer result (an unsigned long in the C)
=back
=head1 EXPORTS
None by default but you can have the jhash() function if you ask nicely.
See below for reasons not to use Exporter (it is slower than a direct call)
=head1 SPEED NOTE
If speed is a major issue it is roughly twice as fast to do call the jhash()
function like Digest::JHash::jhash('message') than it is to import the
jhash() method using Exporter so you can call it as simply jhash('message').
There is a short script that demonstrates the speed of different calling
methods (direct, OO and Imported) in examples/oo_vs_func.pl
=head1 AUTHORS
The JHash implementation was written by Bob Jenkins
<bob_jenkins [at] burtleburtle [dot] net>.
This perl extension was written by Andrew Towers
<mariofrog [at] bigpond [dot] com>.
A few mods were added by James Freeman
<airmedical [at] gmail [dot] com>).
=head1 SEE ALSO
http://burtleburtle.net/bob/hash/doobs.html
=head1 LICENSE
This package is free software and is provided "as is" without express or
implied warranty. It may be used, redistributed and/or modified under the
terms of the Artistic License 2.0. A copy is include in this distribution.
=cut
|