File Coverage

blib/lib/Math/Random/OO.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod	3	3	100.0
total	42	42	100.0

use 5.006;
use strict;
use warnings;

package Math::Random::OO;
# ABSTRACT: Consistent object-oriented interface for generating random numbers
our $VERSION = '0.22'; # VERSION

use Carp;

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

sub new {
    my $class = shift;
    return bless( {}, ref($class) ? ref($class) : $class );
}

sub seed { die "call to abstract method 'seed'" }

sub next { die "call to abstract method 'next'" }

1;

__END__