view release on metacpan or  search on metacpan

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

328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
 
  package MyAPP::AuthQuizWrapper;
  use strict;
  use warnings;
  use Cache::Memcached;
  use base qw/ https://metacpan.org/pod/Authen::Quiz">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