File Coverage

blib/lib/UUID/URandom.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	31	31	100.0

use 5.008;
use strict;
use warnings;

package UUID::URandom;
# ABSTRACT: UUIDs based on /dev/urandom or the Windows Crypto API

our $VERSION = '0.001';

use Exporter 5.57 qw/import/;
use Crypt::URandom 0.36 ();

our @EXPORT_OK = qw(
  create_uuid
  create_uuid_hex
  create_uuid_string
);

#pod =func create_uuid
#pod
#pod     my $uuid = create_uuid();
#pod
#pod     # "\x95\x5a\xe4\x96\x8b\xb2\x45\x0b\x9c\x7e\x99\xf5\x01\xdf\x90\xfe"
#pod
#pod This returns a new UUID as a 16 byte 'binary' string.
#pod
#pod =cut

sub create_uuid {
    my $uuid = Crypt::URandom::urandom(16);
    vec( $uuid, 13, 4 ) = 0x4; # set UUID version
    vec( $uuid, 35, 2 ) = 0x2; # set UUID variant
    return $uuid;
}

#pod =func create_uuid_hex
#pod
#pod     my $uuid = create_uuid_hex();
#pod
#pod     # "955ae4968bb2450b9c7e99f501df90fe"
#pod
#pod This returns a new UUID as a 32-byte hexadecimal string.
#pod
#pod =cut

sub create_uuid_hex {
    return unpack( "H*", create_uuid() );
}

#pod =func create_uuid_string
#pod
#pod     my $uuid = create_uuid_string();
#pod
#pod     # "955ae496-8bb2-450b-9c7e-99f501df90fe"
#pod
#pod This returns a new UUID in the 36-byte RFC-4122 canonical string
#pod representation.  (N.B. The canonical representation is lower-case.)
#pod
#pod =cut

sub create_uuid_string {
    return join "-", unpack( "H8H4H4H4H12", create_uuid() );
}

1;


# vim: ts=4 sts=4 sw=4 et tw=75:

__END__