t/lib/DeprecatedActionsInAppClassTestApp.pm

   1 package DeprecatedActionsInAppClassTestApp;
   2
   3 use strict;
   4 use warnings;
   5 use Catalyst;
   6
   7 our $VERSION = '0.01';
   8
   9 __PACKAGE__->config( name => 'DeprecatedActionsInAppClassTestApp', root => '/some/dir' );
  10 __PACKAGE__->log(DeprecatedActionsInAppClassTestApp::Log->new);
  11 __PACKAGE__->setup;
  12
  13 sub foo : Local {
  14     my ($self, $c) = @_;
  15     $c->res->body('OK');
  16 }
  17
  18 package DeprecatedActionsInAppClassTestApp::Log;
  19 use strict;
  20 use warnings;
  21 use base qw/Catalyst::Log/;
  22
  23 our $warnings;
  24
  25 sub warn {
  26     my ($self, $warning) = @_;
  27     $warnings++ if $warning =~ /action methods .+ found defined/i;
  28 }
  29
  30 1;