view release on metacpan or  search on metacpan

lib/Authen/Quiz.pm  view on Meta::CPAN

  package MyAPP::AuthQuizWrapper;
  use strict;
  use warnings;
  use Cache::Memcached;
  use base qw/ Authen::Quiz /;
  
  sub load_quiz {
     my $cache= Cache::Memcached->new;
     $cache->get('authen_quiz_data') || do {
         my $data= $_[0]->SUPER::load_quiz;
         $cache->set('authen_quiz_data'=> $data, 600);
         data;
       };
  }
  
  1;

Or, please use L<Authen::Quiz::Plugin::Memcached>.

=head1 SEE ALSO