sub roll {
  my ($self) = shift;
  my $diRef  = $self->get_di;

  my ($total, @roll);
  foreach my $di ( @$diRef ) {
    my $rolled = $di->roll();
    push( @roll, $rolled );
    $total += $rolled;
  }
  $self->set_total($total);
  $self->set_dice(\@roll);
  return $total;
}