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