github.com/aergoio/aergo@v1.3.1/libtool/src/gmp-6.1.2/demos/perl/GMP/Rand.pm (about)

     1  # GMP random numbers module.
     2  
     3  # Copyright 2001, 2003 Free Software Foundation, Inc.
     4  #
     5  #  This file is part of the GNU MP Library.
     6  #
     7  #  The GNU MP Library is free software; you can redistribute it and/or modify
     8  #  it under the terms of either:
     9  #
    10  #    * the GNU Lesser General Public License as published by the Free
    11  #      Software Foundation; either version 3 of the License, or (at your
    12  #      option) any later version.
    13  #
    14  #  or
    15  #
    16  #    * the GNU General Public License as published by the Free Software
    17  #      Foundation; either version 2 of the License, or (at your option) any
    18  #      later version.
    19  #
    20  #  or both in parallel, as here.
    21  #
    22  #  The GNU MP Library is distributed in the hope that it will be useful, but
    23  #  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
    24  #  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
    25  #  for more details.
    26  #
    27  #  You should have received copies of the GNU General Public License and the
    28  #  GNU Lesser General Public License along with the GNU MP Library.  If not,
    29  #  see https://www.gnu.org/licenses/.
    30  
    31  
    32  package GMP::Rand;
    33  
    34  require GMP;
    35  require Exporter;
    36  @ISA = qw(GMP Exporter);
    37  @EXPORT = qw();
    38  %EXPORT_TAGS = ('all' => [qw(
    39  			     randstate mpf_urandomb mpz_rrandomb
    40  			     mpz_urandomb mpz_urandomm gmp_urandomb_ui
    41  			     gmp_urandomm_ui)]);
    42  Exporter::export_ok_tags('all');
    43  1;
    44  __END__