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=9c870b01744aaeb0e602417e22dab88b2ba951cb;hp=565bc3ee9f35831fbd3706bf9bb8864ddfd915a4;hb=dbf6a6fcd7a51226a353e2a800a1cf5c7e8e9c66;hpb=5ec24151d10209c4bf8b4522e515dd775b51fa9c diff --git a/t/lib/DeprecatedActionsInAppClassTestApp.pm b/t/lib/DeprecatedActionsInAppClassTestApp.pm index 565bc3e..9c870b0 100644 --- a/t/lib/DeprecatedActionsInAppClassTestApp.pm +++ b/t/lib/DeprecatedActionsInAppClassTestApp.pm @@ -20,6 +20,8 @@ use strict; use warnings; use base qw/Catalyst::Log/; +our $warnings; + sub warn { my ($self, $warning) = @_; $warnings++ if $warning =~ /action methods .+ found defined/i;