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

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

##</code><code>##

sub import {
    my ($class, @symbols) = @_;
    my $caller = caller;
    for (@symbols) {
        no strict 'refs';
        my $subclass = "Math::Random::OO::$_";
        eval "require $subclass";
        *{"${caller}::$_"} = 
            eval "sub { return ${subclass}->new(\@_) }";
    }
}

##</code><code>##

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

##</code><code>##

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