Statistics-Sampler-Multinomial

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "Clone" : "0",
            "List::MoreUtils" : "0",
            "List::Util" : "1.29",
            "Math::Random::MT::Auto" : "0",
            "Ref::Util" : "0",
            "Scalar::Util" : "0",
            "parent" : "0",
            "perl" : "5.014"
         }
      },
      "test" : {
         "requires" : {
            "Devel::Symdump" : "0",
            "Test::More" : "0",
            "Test::Most" : "0",

META.yml  view on Meta::CPAN

no_index:
  directory:
    - t
    - inc
requires:
  Carp: '0'
  Clone: '0'
  List::MoreUtils: '0'
  List::Util: '1.29'
  Math::Random::MT::Auto: '0'
  Ref::Util: '0'
  Scalar::Util: '0'
  parent: '0'
  perl: '5.014'
resources:
  bugtracker: https://github.com/shawnlaffan/perl-statistics-sampler-multinomial/issues/
  repository: https://github.com/shawnlaffan/perl-statistics-sampler-multinomial.git
version: '1.02'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

    AUTHOR              => 'Shawn Laffan <shawnlaffan@gmail.com>',
    VERSION_FROM        => 'lib/Statistics/Sampler/Multinomial.pm',
    ABSTRACT_FROM       => 'lib/Statistics/Sampler/Multinomial.pm',
    MIN_PERL_VERSION    => '5.014',
    LICENSE             => 'perl_5',
    PL_FILES            => {},
    PREREQ_PM => {
        'Carp'         => 0,
        'parent'       => 0,
        'Clone'        => 0,
        'Ref::Util'    => 0,
        'List::Util'   => 1.29,
        'Scalar::Util' => 0,
        'List::MoreUtils' => 0,
        'Math::Random::MT::Auto' => 0,
    },
    TEST_REQUIRES => {
        'Test::More' => 0,
        'Test::Most' => 0,
        'rlib'       => 0,
        'Devel::Symdump' => 0,

lib/Statistics/Sampler/Multinomial.pm  view on Meta::CPAN

package Statistics::Sampler::Multinomial;

use 5.014;
use warnings;
use strict;

our $VERSION = '1.02';

use Carp;
use Ref::Util qw /is_arrayref/;
use List::Util qw /min sum/;
use List::MoreUtils qw /first_index/;
use Scalar::Util qw /blessed looks_like_number/;
#use parent qw/Clone/;
use Clone ();

sub new {
    my ($class, %args) = @_;
    
    my $data = $args{data};

lib/Statistics/Sampler/Multinomial/AliasMethod.pm  view on Meta::CPAN

package Statistics::Sampler::Multinomial::AliasMethod;

use 5.014;
use warnings;
use strict;

our $VERSION = '1.02';

use Carp;
use Ref::Util qw /is_arrayref/;
use List::Util qw /min sum/;
use List::MoreUtils qw /first_index/;
use Scalar::Util qw /blessed/;

use parent qw /Statistics::Sampler::Multinomial/;

sub _validate_prng_object {
    my ($self, $prng) = @_;

    #  Math::Random::MT::Auto has boolean op overloading

lib/Statistics/Sampler/Multinomial/Indexed.pm  view on Meta::CPAN

package Statistics::Sampler::Multinomial::Indexed;

use 5.014;
use warnings;
use strict;

our $VERSION = '1.02';

use Carp;
use Ref::Util qw /is_arrayref/;
use List::Util 1.29 qw /min max sum pairmap/;
#use List::MoreUtils qw /first_index/;
use Scalar::Util qw /blessed looks_like_number/;

#use POSIX qw /ceil floor/;

use parent qw /Statistics::Sampler::Multinomial/;

sub new {
    my $pkg = shift;