MojoliciousにbeforeFilterを埋め込む

Perl

なんか，パッと調べた感じだとbeforeFilterとか，コントローラ内でhookするのが，ちゃんとしたのがあんまなかった感じなので．
あんまりよくはないのですが，MojoliciousのRoutes.pmいぢりました．

 451         # Action
 452         if ($method && $app->isa($self->controller_base_class)) {
 453 +           my $before_filter_method = "beforeFilter";
 454 +
 455 +           # debug by rin1024
 456 +           #use Data::Dumper;
 457 +           #die Dumper($app);
 458 +           
 459 +           # Call filter action
 460 +           $app->$before_filter_method if $app->can($before_filter_method);
 461 +            
 462             # Call action
 463             $continue = $app->$method if $app->can($method);
 464             
 465             # Merge stash
 466             my $new = $app->stash;
 467             @{$c->stash}{keys %$new} = values %$new;
 468         }

@ /usr/lib/perl5/site_perl/5.8.8/Mojolicious/Routes.pm