t/lib/TestAppPluginWithNewMethod.pm

   1 {
   2     package NewTestPlugin;
   3     use strict;
   4     use warnings;
   5     sub new {
   6         my $class = shift;
   7         return bless $_[0], $class;
   8     }
   9 }
  10
  11 {
  12     package TestAppPluginWithNewMethod;
  13     use Test::Exception;
  14     use Catalyst qw/+NewTestPlugin/;
  15
  16     sub foo : Local {
  17         my ($self, $c) = @_;
  18         $c->res->body('foo');
  19     }
  20
  21     use Moose; # Just testing method modifiers still work.
  22     __PACKAGE__->setup;
  23     our $MODIFIER_FIRED = 0;
  24
  25     lives_ok {
  26         before 'dispatch' => sub { $MODIFIER_FIRED = 1 }
  27     } 'Can apply method modifier';
  28     no Moose;
  29 }