###########################################
package QuizShow::Model::Questions;
# Mike Schilli, 2008 (m@perlmeister.com)
###########################################
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;