File Coverage

blib/lib/RPG/Dice.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	31	32	96.8

package RPG::Dice;
use strict;
use warnings;
use Carp;

# ABSTRACT: emulate rolling dice

our $VERSION = "1.2";

sub new {
    shift;
    my $pat = shift;
    confess "Bad pattern: $pat\nShould be in the form of 'xdy' where"
      . "\n\tx = number of dice \n\ty = number of sides."
      unless $pat =~ m/^\d+[dD]\d+$/;

    my $self = {
        sides => 0,
        num   => 0
    };

    bless $self, "RPG::Dice";

    $pat =~ m@^(\d+)[dD](\d+)$@;

    $self->{num}   = $1;
    $self->{sides} = $2;

    return $self;
}

sub roll {
    my $self = shift;
    my $ret  = 0;

    foreach ( 1 .. $self->{num} ) {
        $ret += int( rand( $self->{sides} ) ) + 1;
    }
    return $ret;
}
1;

__END__