########################################### 
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;