view release on metacpan or  search on metacpan

lib/random.pm  view on Meta::CPAN

=head1 FUNCTIONS

=head2 import

=cut

sub import   {
    shift; #
    my %args = @_<=1? ( "integer" => 1) :  @_;
    
    $^H{random} =  $args{fixed}   ? $args{fixed} 
                :  $args{integer} ? -123456789
                :  undef;
return
}

=head2 unimport

=cut

sub unimport {