[Catalyst] RESOLVED Catalyst modperl2 Problem

Sebastian Riedel sri at oook.de
Fri Apr 1 23:30:11 CEST 2005


Am 01.04.2005 um 23:16 schrieb bsadler at helix-it.com:
> sub handler_mp1($$) {
>         my $class = shift;
>         $class->SUPER::handler(@_);
> }
>
> eval {
>         sub handler_mp2 : method {
>                 my $class = shift;
>                 $class->SUPER::handler(@_);
>         }
> };
>
> if($@) {
>   *handler = \&handler_mp1;
> } else {
>   *handler = MP2 ? \&handler_mp2 : \&handler_mp1;
> }

That looks just wrong!
Can you come up with a minimal testcase? maybe a small handler without 
catalyst?

--
sebastian




More information about the Catalyst mailing list