File Coverage

blib/lib/UUID/Generator/PurePerl/RNG/Bridge.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	21	57.1

package UUID::Generator::PurePerl::RNG::Bridge;

use strict;
use warnings;

use Digest;

sub gen_seed_32bit {
    my $d = Digest->new('MD5');
    $d->add(pack('I', time));
    my $r = $d->digest;
    my $x = 0;
    while (length $r > 0) {
        $x ^= unpack 'I', substr($r, 0, 4, q{});
    }
    return $x;
}

sub rand_32bit;

1;
__END__