[Catalyst-commits] r10348 - in Catalyst-Runtime/5.80/trunk/t/lib: . Catalyst/Plugin

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-05-29 00:09:11 +0000 (Fri, 29 May 2009)
New Revision: 10348

Added:
   Catalyst-Runtime/5.80/trunk/t/lib/Catalyst/Plugin/MangleDollarUnderScore.pm
Modified:
   Catalyst-Runtime/5.80/trunk/t/lib/TestApp.pm
Log:
Epic fail plugin breaks everything which loads TestApp

Added: Catalyst-Runtime/5.80/trunk/t/lib/Catalyst/Plugin/MangleDollarUnderScore.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/Catalyst/Plugin/MangleDollarUnderScore.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/lib/Catalyst/Plugin/MangleDollarUnderScore.pm	2009-05-29 00:09:11 UTC (rev 10348)
@@ -0,0 +1,16 @@
+package Catalyst::Plugin::MangleDollarUnderScore;
+use strict;
+use warnings;
+
+our $VERSION = 0.1; # Make is_class_loaded happy
+
+# Class::MOP::load_class($_) can hurt you real hard.
+BEGIN { $_ = q{
+mst sayeth, Class::MOP::load_class($_) will ruin your life
+rafl spokeh "i ♥ my $_"',
+and verrily forsooth, t0m made tests
+and yea, there was fail' }; }
+
+1;
+__END__
+

Modified: Catalyst-Runtime/5.80/trunk/t/lib/TestApp.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/lib/TestApp.pm	2009-05-28 18:08:34 UTC (rev 10347)
+++ Catalyst-Runtime/5.80/trunk/t/lib/TestApp.pm	2009-05-29 00:09:11 UTC (rev 10348)
@@ -2,6 +2,7 @@
 
 use strict;
 use Catalyst qw/
+    MangleDollarUnderScore
     Test::Errors 
     Test::Headers 
     Test::Plugin