Select Code to Download

package Dice::Die;
$VERSION = 0.04;
...
}

1;

sub roll {
  my ($self) = shift;
...
  $self->set_dice(\@roll);
  return $total;
}