X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDeprecatedActionsInAppClassTestApp.pm;h=9c870b01744aaeb0e602417e22dab88b2ba951cb;hb=68b4caec7950a4dc7ed003fe0e78f73baf81f9d3;hp=565bc3ee9f35831fbd3706bf9bb8864ddfd915a4;hpb=5ec24151d10209c4bf8b4522e515dd775b51fa9c;p=catagits%2FCatalyst-Runtime.git 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;