Changeset 31274 for lang/perl

Show
Ignore:
Timestamp:
03/16/09 10:37:47 (5 years ago)
Author:
dayflower
Message:

moving from UUID-PurePerl? to UUID-Generator-PurePerl?; step 2

Location:
lang/perl/UUID-PurePerl/trunk
Files:
30 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/UUID-PurePerl/trunk

    • Property svn:ignore
      •  

        old new  
        88META.yml 
        99inc 
        10 UUID-PurePerl-* 
         10UUID-Generator-PurePerl-* 
        1111ext 
  • lang/perl/UUID-PurePerl/trunk/Changes

    r31142 r31274  
    1 Revision history for Perl extension UUID::PurePerl 
     1Revision history for Perl extension UUID::Generator::PurePerl 
    22 
    330.01  xxx xxx XX XX:XX:XX 2009 
  • lang/perl/UUID-PurePerl/trunk/MANIFEST

    r31142 r31274  
    1010inc/Module/Install/WriteAll.pm 
    1111inc/Test/More.pm 
    12 lib/UUID/PurePerl.pm 
    13 lib/UUID/PurePerl/Compat.pm 
    14 lib/UUID/PurePerl/NodeID.pm 
    15 lib/UUID/PurePerl/RNG.pm 
    16 lib/UUID/PurePerl/RNG/Bridge.pm 
    17 lib/UUID/PurePerl/RNG/MRMT.pm 
    18 lib/UUID/PurePerl/RNG/MRMTPP.pm 
    19 lib/UUID/PurePerl/RNG/rand.pm 
    20 lib/UUID/PurePerl/Util.pm 
     12lib/UUID/Generator/PurePerl.pm 
     13lib/UUID/Generator/PurePerl/Compat.pm 
     14lib/UUID/Generator/PurePerl/NodeID.pm 
     15lib/UUID/Generator/PurePerl/RNG.pm 
     16lib/UUID/Generator/PurePerl/RNG/Bridge.pm 
     17lib/UUID/Generator/PurePerl/RNG/MRMT.pm 
     18lib/UUID/Generator/PurePerl/RNG/MRMTPP.pm 
     19lib/UUID/Generator/PurePerl/RNG/rand.pm 
     20lib/UUID/Generator/PurePerl/Util.pm 
    2121Makefile.PL 
    2222MANIFEST                        This list of files 
  • lang/perl/UUID-PurePerl/trunk/MANIFEST.SKIP

    r31142 r31274  
    88^blib/ 
    99^pm_to_blib 
    10 ^UUID-PurePerl-\d 
     10^UUID-Generator-PurePerl-\d 
    1111\.gz$ 
    1212\.shipit 
  • lang/perl/UUID-PurePerl/trunk/Makefile.PL

    r31142 r31274  
    11use inc::Module::Install; 
    22 
    3 name 'UUID-PurePerl'; 
    4 all_from 'lib/UUID/PurePerl.pm'; 
     3name 'UUID-Generator-PurePerl'; 
     4all_from 'lib/UUID/Generator/PurePerl.pm'; 
    55 
    66requires 'Carp' => 0; 
    77requires 'Time::HiRes' => 1.20; 
     8requires 'Digest' => 1.00; 
    89 
    9 recommends 'Digest' => 1.00; 
    1010recommends 'Digest::MD5' => 2.20; 
    1111recommends 'Digest::SHA' => 5.32; 
  • lang/perl/UUID-PurePerl/trunk/README

    r31142 r31274  
    1 This is Perl module UUID::PurePerl. 
     1This is Perl module UUID::Generator::PurePerl. 
    22 
    33INSTALLATION 
    44 
    5 UUID::PurePerl installation is straightforward. If your CPAN shell is set up, 
     5UUID::Generator::PurePerl installation is straightforward. If your CPAN shell is set up, 
    66you should just be able to do 
    77 
    8     % cpan UUID::PurePerl 
     8    % cpan UUID::Generator::PurePerl 
    99 
    1010Download it, unpack it, then build it as per the usual: 
     
    1919DOCUMENTATION 
    2020 
    21 UUID::PurePerl documentation is available as in POD. So you can do: 
     21UUID::Generator::PurePerl documentation is available as in POD. So you can do: 
    2222 
    23     % perldoc UUID::PurePerl 
     23    % perldoc UUID::Generator::PurePerl 
    2424 
    2525to read the documentation online with your favorite pager. 
  • lang/perl/UUID-PurePerl/trunk/lib/UUID/Generator/PurePerl.pm

    r31273 r31274  
    1 package UUID::PurePerl; 
     1package UUID::Generator::PurePerl; 
    22 
    33use strict; 
     
    1111use Time::HiRes; 
    1212use UUID::Object; 
    13 use UUID::PurePerl::RNG; 
    14 use UUID::PurePerl::NodeID; 
    15 use UUID::PurePerl::Util; 
     13use UUID::Generator::PurePerl::RNG; 
     14use UUID::Generator::PurePerl::NodeID; 
     15use UUID::Generator::PurePerl::Util; 
    1616 
    1717sub new { 
     
    2626 
    2727    if (! defined $self->{rng}) { 
    28         $self->{rng} = UUID::PurePerl::RNG->singleton(); 
     28        $self->{rng} = UUID::Generator::PurePerl::RNG->singleton(); 
    2929    } 
    3030 
     
    3636 
    3737    if (! defined $self->{node_getter}) { 
    38         $self->{node_getter} = UUID::PurePerl::NodeID->singleton(); 
     38        $self->{node_getter} = UUID::Generator::PurePerl::NodeID->singleton(); 
    3939    } 
    4040 
     
    181181=head1 NAME 
    182182 
    183 UUID::PurePerl - Universally Unique IDentifier (UUID) Generator 
     183UUID::Generator::PurePerl - Universally Unique IDentifier (UUID) Generator 
    184184 
    185185=head1 SYNOPSIS 
    186186 
    187   use UUID::PurePerl; 
     187  use UUID::Generator::PurePerl; 
    188188   
    189   $ug = UUID::PurePerl->new(); 
     189  $ug = UUID::Generator::PurePerl->new(); 
    190190   
    191191  $uuid1 = $ug->generate_v1(); 
     
    194194=head1 DESCRIPTION 
    195195 
    196 UUID::PurePerl is UUID 
     196UUID::Generator::PurePerl is UUID 
    197197(Universally Unique IDentifier; described in RFC 4122) generator class. 
    198198 
     
    306306=head1 SEE ALSO 
    307307 
    308 L<UUID::Object>, L<UUID::PurePerl::Compat>. 
     308L<UUID::Object>, L<UUID::Generator::PurePerl::Compat>. 
    309309 
    310310RFC 4122: "A Universally Unique IDentifier (UUID) URN Namespace", 2005, L<http://www.ietf.org/rfc/rfc4122.txt>. 
  • lang/perl/UUID-PurePerl/trunk/lib/UUID/Generator/PurePerl/Compat.pm

    r31273 r31274  
    1 package UUID::PurePerl::Compat; 
     1package UUID::Generator::PurePerl::Compat; 
    22 
    33use strict; 
     
    99 
    1010use Carp; 
    11 use UUID::PurePerl; 
     11use UUID::Generator::PurePerl; 
    1212use UUID::Object; 
    1313 
     
    2323 
    2424    if (! defined $self->{generator}) { 
    25         $self->{generator} = UUID::PurePerl->new(); 
     25        $self->{generator} = UUID::Generator::PurePerl->new(); 
    2626    } 
    2727 
     
    152152=head1 NAME 
    153153 
    154 UUID::PurePerl::Compat - Compatible interface to Data::UUID 
     154UUID::Generator::PurePerl::Compat - Compatible interface to Data::UUID 
    155155 
    156156=head1 SYNOPSIS 
    157157 
    158   use UUID::PurePerl::Compat; 
     158  use UUID::Generator::PurePerl::Compat; 
    159159   
    160   $ug = UUID::PurePerl::Compat->new(); 
     160  $ug = UUID::Generator::PurePerl::Compat->new(); 
    161161   
    162162  $uuid1 = $ug->create(); 
     
    174174=head1 SEE ALSO 
    175175 
    176 L<UUID::PurePerl>, L<Data::UUID>. 
     176L<UUID::Generator::PurePerl>, L<Data::UUID>. 
    177177 
    178178=head1 AUTHOR 
  • lang/perl/UUID-PurePerl/trunk/lib/UUID/Generator/PurePerl/NodeID.pm

    r31273 r31274  
    1 package UUID::PurePerl::NodeID; 
     1package UUID::Generator::PurePerl::NodeID; 
    22 
    33use strict; 
     
    88use Digest; 
    99use Time::HiRes; 
    10 use UUID::PurePerl::RNG; 
    11 use UUID::PurePerl::Util; 
     10use UUID::Generator::PurePerl::RNG; 
     11use UUID::Generator::PurePerl::Util; 
    1212 
    1313our $USE_RANDOM_FACTOR_FOR_PSEUDO_NODE = 1; 
     
    7272        my $seed = digest_as_32bit($self->_pseudo_node_source(1)); 
    7373 
    74         my $rng = UUID::PurePerl::RNG->new($seed); 
     74        my $rng = UUID::Generator::PurePerl::RNG->new($seed); 
    7575 
    7676        $self->{rng} = $rng; 
     
    112112=head1 NAME 
    113113 
    114 UUID::PurePerl::NodeID - Class for node ID retrieval 
     114UUID::Generator::PurePerl::NodeID - Class for node ID retrieval 
    115115 
    116116=head1 DESCRIPTION 
    117117 
    118 UUID::PurePerl::NodeID is for node ID retrieval. 
     118UUID::Generator::PurePerl::NodeID is for node ID retrieval. 
    119119 
    120120INTERNAL USE ONLY. 
  • lang/perl/UUID-PurePerl/trunk/lib/UUID/Generator/PurePerl/RNG.pm

    r31273 r31274  
    1 package UUID::PurePerl::RNG; 
     1package UUID::Generator::PurePerl::RNG; 
    22 
    33use strict; 
     
    1919 
    2020    my @classes = qw( 
    21         UUID::PurePerl::RNG::MRMT 
    22         UUID::PurePerl::RNG::MRMTPP 
    23         UUID::PurePerl::RNG::rand 
     21        UUID::Generator::PurePerl::RNG::MRMT 
     22        UUID::Generator::PurePerl::RNG::MRMTPP 
     23        UUID::Generator::PurePerl::RNG::rand 
    2424    ); 
    2525 
     
    4040=head1 NAME 
    4141 
    42 UUID::PurePerl::RNG- Random Number Generator 
     42UUID::Generator::PurePerl::RNG- Random Number Generator 
    4343 
    4444=head1 DESCRIPTION 
    4545 
    46 UUID::PurePerl::RNG is Random Number Generator. 
     46UUID::Generator::PurePerl::RNG is Random Number Generator. 
    4747 
    4848INTERNAL USE ONLY. 
  • lang/perl/UUID-PurePerl/trunk/lib/UUID/Generator/PurePerl/RNG/Bridge.pm

    r31142 r31274  
    1 package UUID::PurePerl::RNG::Bridge; 
     1package UUID::Generator::PurePerl::RNG::Bridge; 
    22 
    33use strict; 
     
    2424=head1 NAME 
    2525 
    26 UUID::PurePerl::RNG::Bridge - abstract class of RNG bridge 
     26UUID::Generator::PurePerl::RNG::Bridge - abstract class of RNG bridge 
    2727 
    2828=head1 DESCRIPTION 
    2929 
    30 UUID::PurePerl::RNG::Bridge is abstract class of RNG bridge interface. 
     30UUID::Generator::PurePerl::RNG::Bridge is abstract class of RNG bridge interface. 
    3131 
    3232=head1 AUTHOR 
  • lang/perl/UUID-PurePerl/trunk/lib/UUID/Generator/PurePerl/RNG/MRMT.pm

    r31142 r31274  
    1 package UUID::PurePerl::RNG::MRMT; 
     1package UUID::Generator::PurePerl::RNG::MRMT; 
    22 
    33use strict; 
    44use warnings; 
    55 
    6 use base qw( UUID::PurePerl::RNG::Bridge ); 
     6use base qw( UUID::Generator::PurePerl::RNG::Bridge ); 
    77 
    88BEGIN { 
     
    4747=head1 NAME 
    4848 
    49 UUID::PurePerl::RNG::MRMT - RNG bridge of Math::Random::MT 
     49UUID::Generator::PurePerl::RNG::MRMT - RNG bridge of Math::Random::MT 
    5050 
    5151=head1 DESCRIPTION 
    5252 
    53 UUID::PurePerl::RNG::MRMT is RNG bridge interface of Math::Random::MT. 
     53UUID::Generator::PurePerl::RNG::MRMT is RNG bridge interface of Math::Random::MT. 
    5454 
    5555=head1 AUTHOR 
  • lang/perl/UUID-PurePerl/trunk/lib/UUID/Generator/PurePerl/RNG/MRMTPP.pm

    r31142 r31274  
    1 package UUID::PurePerl::RNG::MRMTPP; 
     1package UUID::Generator::PurePerl::RNG::MRMTPP; 
    22 
    33use strict; 
    44use warnings; 
    55 
    6 use base qw( UUID::PurePerl::RNG::Bridge ); 
     6use base qw( UUID::Generator::PurePerl::RNG::Bridge ); 
    77 
    88BEGIN { 
     
    4747=head1 NAME 
    4848 
    49 UUID::PurePerl::RNG::MRMTPP - RNG bridge of Math::Random::MT::Perl 
     49UUID::Generator::PurePerl::RNG::MRMTPP - RNG bridge of Math::Random::MT::Perl 
    5050 
    5151=head1 DESCRIPTION 
    5252 
    53 UUID::PurePerl::RNG::MRMTPP is RNG bridge interface of Math::Random::MT::Perl. 
     53UUID::Generator::PurePerl::RNG::MRMTPP is RNG bridge interface of Math::Random::MT::Perl. 
    5454 
    5555=head1 AUTHOR 
  • lang/perl/UUID-PurePerl/trunk/lib/UUID/Generator/PurePerl/RNG/rand.pm

    r31142 r31274  
    1 package UUID::PurePerl::RNG::rand; 
     1package UUID::Generator::PurePerl::RNG::rand; 
    22 
    33use strict; 
    44use warnings; 
    55 
    6 use base qw( UUID::PurePerl::RNG::Bridge ); 
     6use base qw( UUID::Generator::PurePerl::RNG::Bridge ); 
    77 
    88sub enabled { 1 } 
     
    3232=head1 NAME 
    3333 
    34 UUID::PurePerl::RNG::rand - RNG bridge of CORE rand() function 
     34UUID::Generator::PurePerl::RNG::rand - RNG bridge of CORE rand() function 
    3535 
    3636=head1 DESCRIPTION 
    3737 
    38 UUID::PurePerl::RNG::rand is RNG bridge interface of rand() Perl CORE function. 
     38UUID::Generator::PurePerl::RNG::rand is RNG bridge interface of rand() Perl CORE function. 
    3939 
    4040=head1 AUTHOR 
  • lang/perl/UUID-PurePerl/trunk/lib/UUID/Generator/PurePerl/Util.pm

    r31273 r31274  
    1 package UUID::PurePerl::Util; 
     1package UUID::Generator::PurePerl::Util; 
    22 
    33use strict; 
     
    5757=head1 NAME 
    5858 
    59 UUID::PurePerl::Util - Utitily functions for UUID::PurePerl 
     59UUID::Generator::PurePerl::Util - Utitily functions for UUID::Generator::PurePerl 
    6060 
    6161=head1 DESCRIPTION 
    6262 
    63 Several functions useful for UUID::PurePerl internal are here. 
     63Several functions useful for UUID::Generator::PurePerl internal are here. 
    6464 
    6565Mainly, internal use only. 
  • lang/perl/UUID-PurePerl/trunk/t/00_compile.t

    r31142 r31274  
    44 
    55BEGIN { 
    6     use_ok 'UUID::PurePerl'; 
    7     use_ok 'UUID::PurePerl::Compat'; 
    8     use_ok 'UUID::PurePerl::NodeID'; 
    9     use_ok 'UUID::PurePerl::RNG'; 
    10     use_ok 'UUID::PurePerl::Util'; 
     6    use_ok 'UUID::Generator::PurePerl'; 
     7    use_ok 'UUID::Generator::PurePerl::Compat'; 
     8    use_ok 'UUID::Generator::PurePerl::NodeID'; 
     9    use_ok 'UUID::Generator::PurePerl::RNG'; 
     10    use_ok 'UUID::Generator::PurePerl::Util'; 
    1111} 
  • lang/perl/UUID-PurePerl/trunk/t/01_util.t

    r31142 r31274  
    33use Test::More tests => 5 * 6; 
    44 
    5 use UUID::PurePerl::Util; 
     5use UUID::Generator::PurePerl::Util; 
    66 
    77for my $len (1 .. 6) { 
  • lang/perl/UUID-PurePerl/trunk/t/11_v1.t

    r31142 r31274  
    33use Test::More tests => 1; 
    44 
    5 use UUID::PurePerl; 
     5use UUID::Generator::PurePerl; 
    66 
    7 my $g = UUID::PurePerl->new(); 
     7my $g = UUID::Generator::PurePerl->new(); 
    88 
    99my $u1 = $g->generate_v1(); 
  • lang/perl/UUID-PurePerl/trunk/t/13_v3.t

    r31142 r31274  
    33use Test::More tests => 3; 
    44 
    5 use UUID::PurePerl; 
     5use UUID::Generator::PurePerl; 
    66use UUID::Object; 
    77 
    8 my $g = UUID::PurePerl->new(); 
     8my $g = UUID::Generator::PurePerl->new(); 
    99 
    1010# example in RFC 4122 is wrong 
  • lang/perl/UUID-PurePerl/trunk/t/14_v4.t

    r31142 r31274  
    33use Test::More tests => 3*5; 
    44 
    5 use UUID::PurePerl; 
     5use UUID::Generator::PurePerl; 
    66 
    7 my $g = UUID::PurePerl->new(); 
     7my $g = UUID::Generator::PurePerl->new(); 
    88 
    99for (1 .. 5) { 
  • lang/perl/UUID-PurePerl/trunk/t/15_v5.t

    r31142 r31274  
    1010plan tests => 3; 
    1111 
    12 use UUID::PurePerl; 
     12use UUID::Generator::PurePerl; 
    1313use UUID::Object; 
    1414 
    15 my $g = UUID::PurePerl->new(); 
     15my $g = UUID::Generator::PurePerl->new(); 
    1616 
    1717my $uuid = $g->generate_v5(uuid_ns_dns, 'www.widgets.com'); 
  • lang/perl/UUID-PurePerl/trunk/t/21_v1_clk.t

    r31142 r31274  
    33use Test::More tests => 3; 
    44 
    5 use UUID::PurePerl; 
     5use UUID::Generator::PurePerl; 
    66 
    77{ 
    88no warnings 'redefine'; 
    99 
    10 sub UUID::PurePerl::set_timestamp { 
     10sub UUID::Generator::PurePerl::set_timestamp { 
    1111    my $self = shift; 
    1212    $self->{mock_ts} = shift; 
    1313} 
    1414 
    15 sub UUID::PurePerl::get_timestamp { 
     15sub UUID::Generator::PurePerl::get_timestamp { 
    1616    my $self = shift; 
    1717    return $self->{mock_ts} || 0; 
     
    2020} 
    2121 
    22 my $g = UUID::PurePerl->new(); 
     22my $g = UUID::Generator::PurePerl->new(); 
    2323 
    2424my ($u1, $u2); 
  • lang/perl/UUID-PurePerl/trunk/t/23_v3_d_u.t

    r31142 r31274  
    99 
    1010use Data::UUID; 
    11 use UUID::PurePerl; 
     11use UUID::Generator::PurePerl; 
    1212use UUID::Object; 
    1313 
    14 my $up = UUID::PurePerl->new(); 
     14my $up = UUID::Generator::PurePerl->new(); 
    1515my $du = Data::UUID->new(); 
    1616 
  • lang/perl/UUID-PurePerl/trunk/t/31_compat.t

    r31142 r31274  
    33use Test::More; 
    44 
    5 use UUID::PurePerl::Compat (); 
     5use UUID::Generator::PurePerl::Compat (); 
    66 
    77plan tests => 20; 
    88 
    99my %upns; 
    10 $upns{dns}  = UUID::PurePerl::Compat::NameSpace_DNS(); 
    11 $upns{url}  = UUID::PurePerl::Compat::NameSpace_URL(); 
    12 $upns{oid}  = UUID::PurePerl::Compat::NameSpace_OID(); 
    13 $upns{x500} = UUID::PurePerl::Compat::NameSpace_X500(); 
     10$upns{dns}  = UUID::Generator::PurePerl::Compat::NameSpace_DNS(); 
     11$upns{url}  = UUID::Generator::PurePerl::Compat::NameSpace_URL(); 
     12$upns{oid}  = UUID::Generator::PurePerl::Compat::NameSpace_OID(); 
     13$upns{x500} = UUID::Generator::PurePerl::Compat::NameSpace_X500(); 
    1414 
    15 my $ug = UUID::PurePerl::Compat->new(); 
     15my $ug = UUID::Generator::PurePerl::Compat->new(); 
    1616 
    1717# creates binary (16 byte long binary value) UUID. 
  • lang/perl/UUID-PurePerl/trunk/t/32_compat_du.t

    r31142 r31274  
    66plan skip_all => 'Data::UUID is not installed', 4  if $@; 
    77 
    8 use UUID::PurePerl::Compat (); 
     8use UUID::Generator::PurePerl::Compat (); 
    99 
    1010plan tests => 18; 
     
    2424 
    2525my %upns; 
    26 $upns{dns}  = UUID::PurePerl::Compat::NameSpace_DNS(); 
    27 $upns{url}  = UUID::PurePerl::Compat::NameSpace_URL(); 
    28 $upns{oid}  = UUID::PurePerl::Compat::NameSpace_OID(); 
    29 $upns{x500} = UUID::PurePerl::Compat::NameSpace_X500(); 
     26$upns{dns}  = UUID::Generator::PurePerl::Compat::NameSpace_DNS(); 
     27$upns{url}  = UUID::Generator::PurePerl::Compat::NameSpace_URL(); 
     28$upns{oid}  = UUID::Generator::PurePerl::Compat::NameSpace_OID(); 
     29$upns{x500} = UUID::Generator::PurePerl::Compat::NameSpace_X500(); 
    3030 
    31 my $ug = UUID::PurePerl::Compat->new(); 
     31my $ug = UUID::Generator::PurePerl::Compat->new(); 
    3232my $du = Data::UUID->new(); 
    3333 
  • lang/perl/UUID-PurePerl/trunk/t/40_nodeid.t

    r31142 r31274  
    33use Test::More; 
    44 
    5 use UUID::PurePerl::NodeID; 
     5use UUID::Generator::PurePerl::NodeID; 
    66 
    77plan tests => 52; 
    88 
    9 my $g = UUID::PurePerl::NodeID->new(); 
     9my $g = UUID::Generator::PurePerl::NodeID->new(); 
    1010 
    1111my ($node, $node0, $changed); 
  • lang/perl/UUID-PurePerl/trunk/t/50_rng.t

    r31142 r31274  
    33use Test::More tests => 1; 
    44 
    5 use UUID::PurePerl::RNG; 
     5use UUID::Generator::PurePerl::RNG; 
    66 
    7 my $g = UUID::PurePerl::RNG->new(); 
     7my $g = UUID::Generator::PurePerl::RNG->new(); 
    88my $x = 0; 
    99for (1 .. 10) { 
  • lang/perl/UUID-PurePerl/trunk/t/51_rng_rand.t

    r31142 r31274  
    33use Test::More; 
    44 
    5 use UUID::PurePerl::RNG::rand; 
    6 our $RNG = 'UUID::PurePerl::RNG::rand'; 
     5use UUID::Generator::PurePerl::RNG::rand; 
     6our $RNG = 'UUID::Generator::PurePerl::RNG::rand'; 
    77 
    88plan skip_all => "${RNG} is not enabled." if ! $RNG->enabled; 
  • lang/perl/UUID-PurePerl/trunk/t/52_rng_mtpp.t

    r31142 r31274  
    33use Test::More; 
    44 
    5 use UUID::PurePerl::RNG::MRMTPP; 
    6 our $RNG = 'UUID::PurePerl::RNG::MRMTPP'; 
     5use UUID::Generator::PurePerl::RNG::MRMTPP; 
     6our $RNG = 'UUID::Generator::PurePerl::RNG::MRMTPP'; 
    77 
    88plan skip_all => "${RNG} is not enabled." if ! $RNG->enabled; 
  • lang/perl/UUID-PurePerl/trunk/t/53_rng_mt.t

    r31142 r31274  
    33use Test::More; 
    44 
    5 use UUID::PurePerl::RNG::MRMT; 
    6 our $RNG = 'UUID::PurePerl::RNG::MRMT'; 
     5use UUID::Generator::PurePerl::RNG::MRMT; 
     6our $RNG = 'UUID::Generator::PurePerl::RNG::MRMT'; 
    77 
    88plan skip_all => "${RNG} is not enabled." if ! $RNG->enabled;