package QuizShow::Model::Questions;

###########################################
package QuizShow::Model::Questions;
# Mike Schilli, 2008 ([email protected])
###########################################
use strict;
use warnings;
use base 'Catalyst::Model';
use YAML qw(LoadFile);

my $FILE = "/home/mschilli/data/quiz.yml";

###########################################
sub total {
###########################################
my $yml = LoadFile $FILE;
return scalar @$yml;
}

###########################################
sub get_question {
###########################################
my($m, $index) = @_;

my $yml = LoadFile $FILE;
return undef if $index > $#$yml;
return @{ $yml->[$index] };
}

1;