first release

Author: Ruben

Build.PL

@@ -0,0 +1,26 @@
+use 5.006;
+use strict;
+use warnings;
+use Module::Build;
+
+my $builder = Module::Build->new(
+    module_name         => 'UUID::Random::Secure',
+    license             => 'artistic_2',
+    dist_author         => q{Ruben Navarro <[email protected]>},
+    dist_version_from   => 'lib/UUID/Random/Secure.pm',
+    release_status      => 'stable',
+    configure_requires => {
+        'Module::Build' => 0,
+    },
+    build_requires => {
+        'Test::More' => 0,
+        'Module::Build' => 0,
+    },
+    requires => {
+        'Exporter'      => 0,
+    },
+    add_to_cleanup     => [ 'UUID-Random-Secure-*' ],
+    create_makefile_pl => 'traditional',
+);
+
+$builder->create_build_script();

Changes

@@ -0,0 +1,5 @@
+Revision history for UUID-Random-Secure
+
+0.01    2016-08-20
+        First release.
+

MANIFEST

@@ -0,0 +1,9 @@
+Build.PL
+Changes
+lib/UUID/Random/Secure.pm
+MANIFEST			This list of files
+README
+t/00-load.t
+t/manifest.t
+t/pod-coverage.t
+t/pod.t

README

@@ -0,0 +1,53 @@
+NAME
+    UUID::Random::Secure - Cryptographically-secure random UUID generator
+
+VERSION
+    version 0.01
+
+SYNOPSIS
+        use UUID::Random::Secure qw(generate_uuid);
+        use feature qw(say);
+
+        say generate_uuid();
+        say UUID::Random::Secure->generate();
+        say UUID::Random::Secure->new->generate();
+
+DESCRIPTION
+    UUID::Random::Secure generates cryptographically-secure UUID strings. 
+    It tries to use one of the following pseudo-random number generators:
+
+    *   Crypt::PRNG
+
+    *   Crypt::OpenSSL::Random
+
+    *   Bytes::Random::Secure
+
+    *   Net::SSLeay
+
+    *   Crypt::Random
+
+    *   Math::Random::Secure
+
+    If none of these modules can be loaded or are already loaded
+    Perl’s rand will be used as an unsecure fallback. 
+
+INSTALLATION
+
+To install this module, run the following commands:
+
+    perl Build.PL
+    ./Build
+    ./Build test
+    ./Build install
+
+AUTHOR
+    Ruben Navarro <[email protected]>
+
+COPYRIGHT AND LICENSE
+
+
+    Copyright 2016 Ruben Navarro.
+
+    This program is free software; you can redistribute it and/or modify it
+    under the terms of the the Artistic License (2.0). 
+

README.md

@@ -0,0 +1,18 @@
+Makefile
+Makefile.old
+Build
+Build.bat
+META.*
+MYMETA.*
+.build/
+_build/
+cover_db/
+blib/
+inc/
+.lwpcookies
+.last_cover_stats
+nytprof.out
+pod2htm*.tmp
+pm_to_blib
+UUID-Random-Secure-*
+UUID-Random-Secure-*.tar.gz

ignore.txt

@@ -0,0 +1,184 @@
+package UUID::Random::Secure;
+use strict;
+use warnings;
+
+our $VERSION = '0.01';
+
+use base 'Exporter';
+our @EXPORT = qw/generate_uuid/;
+my $BYTELEN = 128 / 8;
+
+our $PRNG;
+
+our @models = (
+  [ 'Crypt::PRNG' => '_random_bytes_hex_CP'             ],
+  [ 'Crypt::OpenSSL::Random' => '_random_bytes_hex_COR' ],
+  [ 'Bytes::Random::Secure' => '_random_bytes_hex_BRS'  ],
+  [ 'Net::SSLeay' => '_random_bytes_hex_NS'             ],
+  [ 'Crypt::Random' => '_random_bytes_hex_CR'           ],
+  [ 'Math::Random::Secure' => '_random_bytes_hex_MRS'   ],
+);
+
+sub new{ bless {},shift };
+
+sub generate {
+  my $hex = _random_bytes_hex();
+  return join('-',unpack("A8A4A4A4A12",$hex));
+}
+
+*generate_uuid = \&generate;
+
+sub _random_bytes_hex{
+  my $length = shift;
+
+  my $impl_name = @{ _detect_prng() }[1];
+  my $impl = \&{$impl_name};
+  my $out = $impl->($BYTELEN) || _random_bytes_hex_fallback($BYTELEN)
+}
+
+sub _random_bytes_hex_CP {
+  my $length = shift;
+  return Crypt::PRNG::random_bytes_hex($length);
+}
+
+sub _random_bytes_hex_COR {
+  my $length = shift;
+  my $bytes;
+  if (Crypt::OpenSSL::Random::random_status()) {
+    $bytes = Crypt::OpenSSL::Random::random_bytes($length);
+    return unpack( 'H*', $bytes );
+  }
+  return
+}
+
+sub _random_bytes_hex_BRS {
+  my $length = shift;
+  Bytes::Random::Secure::random_bytes_hex($length)
+}
+
+sub _random_bytes_hex_NS {
+  my $length = shift;
+  my $bytes;
+  if (Net::SSLeay::RAND_status() == 1) {
+    if (Net::SSLeay::RAND_bytes($bytes, $length) == 1) {
+      return unpack( 'H*', $bytes );
+    }
+  }
+  return
+}
+
+sub _random_bytes_hex_CR {
+  my $length = shift;
+  my $bytes =  Crypt::Random::makerandom_octet(Length=>$length);
+  return unpack( 'H*', $bytes );
+}
+
+sub _random_bytes_hex_fallback {
+  my $length = shift;
+  my @chars = ('a'..'f',0..9);
+  join '', map $chars[ irand(scalar @chars) ], 1 .. $length * 2
+}
+
+sub _random_bytes_hex_MRS {
+  no warnings 'redefine';
+  *irand = \&Math::Random::Secure::rand;
+  return
+}
+
+sub _is_module_loaded {
+  my $module = shift;
+  foreach my $i(keys %INC){
+    $i =~ s{/}{::}g;
+    $i =~ s{.pm}{};
+    return 1 if($i eq $module);
+  }
+  return
+}
+
+sub _detect_prng {
+  return $PRNG if $PRNG;
+
+  foreach my $m(@models) {
+    if (_is_module_loaded($m->[0]) ) {
+      return $PRNG = $m;
+    }
+  }
+
+  foreach my $m(@models){
+    if(eval "require @{[ $m->[0] ]}"){
+      return $PRNG = $m;
+    }
+  }
+ 
+  return;
+}
+
+sub irand(;$) {
+  rand(shift);
+}
+
+1;
+
+__END__
+=head1 NAME
+
+UUID::Random::Secure - Cryptographically-secure random UUID generator
+
+=head1 VERSION
+
+Version 0.01
+
+=head1 SYNOPSIS
+
+    use UUID::Random::Secure qw(generate_uuid);
+    use feature qw(say);
+
+    say generate_uuid();
+    say UUID::Random::Secure->generate();
+    say UUID::Random::Secure->new->generate();
+
+
+=head1 DESCRIPTION
+
+UUID::Random::Secure generates cryptographically-secure UUID strings. 
+It tries to use one of the following pseudo-random number generators:
+
+=over
+
+=item * L<Crypt::PRNG>
+
+=item * L<Crypt::OpenSSL::Random>
+
+=item * L<Bytes::Random::Secure>
+
+=item * L<Net::SSLeay>
+
+=item * L<Crypt::Random>
+
+=item * L<Math::Random::Secure>
+
+
+=back
+
+If none of these modules can be loaded or are already loaded
+Perl's rand will be used as an unsecure fallback. 
+
+
+=head1 AUTHOR
+
+Ruben Navarro, C<< <[email protected]> >>
+
+=head1 SUPPORT
+
+Please report any bugs or feature requests through the issue tracker
+at L<https://github.com/rbnx/UUID-Random-Secure/issues>.
+
+
+=head1 LICENSE AND COPYRIGHT
+
+Copyright 2016 Ruben Navarro.
+
+This program is free software; you can redistribute it and/or modify it
+under the terms of the the Artistic License (2.0). 
+
+=cut

lib/.DS_Store

@@ -0,0 +1,13 @@
+#!perl -T
+use 5.006;
+use strict;
+use warnings;
+use Test::More;
+
+plan tests => 1;
+
+BEGIN {
+    use_ok( 'UUID::Random::Secure' ) || print "Bail out!\n";
+}
+
+diag( "Testing UUID::Random::Secure $UUID::Random::Secure::VERSION, Perl $], $^X" );

lib/UUID/.DS_Store

@@ -0,0 +1,15 @@
+#!perl -T
+use 5.006;
+use strict;
+use warnings;
+use Test::More;
+
+unless ( $ENV{RELEASE_TESTING} ) {
+    plan( skip_all => "Author tests not required for installation" );
+}
+
+my $min_tcm = 0.9;
+eval "use Test::CheckManifest $min_tcm";
+plan skip_all => "Test::CheckManifest $min_tcm required" if $@;
+
+ok_manifest();

lib/UUID/Random/.DS_Store

@@ -0,0 +1,57 @@
+#!perl -T
+use 5.006;
+use strict;
+use warnings;
+use Test::More;
+
+plan tests => 3;
+
+sub not_in_file_ok {
+    my ($filename, %regex) = @_;
+    open( my $fh, '<', $filename )
+        or die "couldn't open $filename for reading: $!";
+
+    my %violated;
+
+    while (my $line = <$fh>) {
+        while (my ($desc, $regex) = each %regex) {
+            if ($line =~ $regex) {
+                push @{$violated{$desc}||=[]}, $.;
+            }
+        }
+    }
+
+    if (%violated) {
+        fail("$filename contains boilerplate text");
+        diag "$_ appears on lines @{$violated{$_}}" for keys %violated;
+    } else {
+        pass("$filename contains no boilerplate text");
+    }
+}
+
+sub module_boilerplate_ok {
+    my ($module) = @_;
+    not_in_file_ok($module =>
+        'the great new $MODULENAME'   => qr/ - The great new /,
+        'boilerplate description'     => qr/Quick summary of what the module/,
+        'stub function definition'    => qr/function[12]/,
+    );
+}
+
+TODO: {
+  local $TODO = "Need to replace the boilerplate text";
+
+  not_in_file_ok(README =>
+    "The README is used..."       => qr/The README is used/,
+    "'version information here'"  => qr/to provide version information/,
+  );
+
+  not_in_file_ok(Changes =>
+    "placeholder date/time"       => qr(Date/time)
+  );
+
+  module_boilerplate_ok('lib/UUID/Random/Secure.pm');
+
+
+}
+