package EvanCarroll::Quiz;
use Moose;

has 'question_class' => (is => 'ro', default => 'EvalCarroll::Question');

sub new_question {
  my $self = shift;
  my $question = $self->question_class->new(@_);

  push @{ $self->questions }, $question;

  $question;
}