X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flib%2FDeprecatedActionsInAppClassTestApp.pm;h=9c870b01744aaeb0e602417e22dab88b2ba951cb;hp=bdf4b986ca54d5754a5ccc143319bc0f659d1cd4;hb=82010ea176741c7a4f2baf3f6f27377b1d9f6b15;hpb=fe3e42c35853baa14fe879401ea85bf4c49e8153

diff --git a/t/lib/DeprecatedActionsInAppClassTestApp.pm b/t/lib/DeprecatedActionsInAppClassTestApp.pm
index bdf4b98..9c870b0 100644
--- a/t/lib/DeprecatedActionsInAppClassTestApp.pm
+++ b/t/lib/DeprecatedActionsInAppClassTestApp.pm
@@ -4,6 +4,10 @@ use strict;
 use warnings;
 use Catalyst;
 
+our $VERSION = '0.01';
+
+__PACKAGE__->config( name => 'DeprecatedActionsInAppClassTestApp', root => '/some/dir' );
+__PACKAGE__->log(DeprecatedActionsInAppClassTestApp::Log->new);
 __PACKAGE__->setup;
 
 sub foo : Local {
@@ -11,4 +15,16 @@ sub foo : Local {
     $c->res->body('OK');
 }
 
+package DeprecatedActionsInAppClassTestApp::Log;
+use strict;
+use warnings;
+use base qw/Catalyst::Log/;
+
+our $warnings;
+
+sub warn {
+    my ($self, $warning) = @_;
+    $warnings++ if $warning =~ /action methods .+ found defined/i;
+}
+
 1;