Select Code to Download

use Math::Random::OO qw( Uniform UniformInt Normal Bootstrap );

...
$uni_int = UniformInt(1,6);
$normal  = Normal(1,1);
$boot    = Bootstrap( 2, 3, 3, 4, 4, 4, 5, 5, 5 );

sub import {
    my ($class, @symbols) = @_;
...
            eval "sub { return ${subclass}->new(\@_) }";
    }
}

use Alias 'My::Long::Class::Name' => 'ShortForm';
use Alias [ 'My::Long::Class::Name', @options ] => 'ShortForm';

use Nickname 'My::Long::Class::Name' => 'ShortForm';
use Nickname [ 'My::Long::Class::Name', @options ] => 'ShortForm';