initialize prng late

metacpan · Dec 28, 2024 · 4bf24d9 · 4bf24d9
1 parent 8d2d8b5
commit 4bf24d9
Showing 1 changed file with 7 additions and 6 deletions.
diff --git a/lib/MetaCPAN/CSP.pm b/lib/MetaCPAN/CSP.pm
@@ -31,15 +31,16 @@ has _directives => (
   },
 );
 
-my $rng = Math::Random::ISAAC::XS->new( unpack( "C*", urandom_ub(16) ) );
-
-sub _nonce_generator {
-  sprintf( '%x', $rng->irand );
+sub _build_nonce_generator {
+  my $rng = Math::Random::ISAAC::XS->new( unpack( "C*", urandom_ub(16) ) );
+  sub {
+    sprintf( '%x', $rng->irand );
+  };
 }
 
 has nonce_gen => (
-  is      => 'ro',
-  default => sub { \&_nonce_generator },
+  is      => 'lazy',
+  builder => 1,
 );
 
 has nonce => (