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

diff --git a/t/lib/DeprecatedActionsInAppClassTestApp.pm b/t/lib/DeprecatedActionsInAppClassTestApp.pm
index bdf4b98..565bc3e 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,14 @@ sub foo : Local {
     $c->res->body('OK');
 }
 
+package DeprecatedActionsInAppClassTestApp::Log;
+use strict;
+use warnings;
+use base qw/Catalyst::Log/;
+
+sub warn {
+    my ($self, $warning) = @_;
+    $warnings++ if $warning =~ /action methods .+ found defined/i;
+}
+
 1;