stop using Moo as a test package
Graham Knop [Mon, 13 Feb 2017 05:50:39 +0000 (00:50 -0500)]
Moo is a real module, and may be in our prerequisite list.  Stepping on
its namespace is confusing and could easily cause issues.

lib/Catalyst/Controller.pm
lib/Catalyst/DispatchType/Chained.pm
t/aggregate/live_component_controller_actionroles.t
t/lib/Catalyst/ActionRole/Guff.pm [moved from t/lib/Catalyst/ActionRole/Moo.pm with 80% similarity]
t/lib/Guff.pm [moved from t/lib/Moo.pm with 91% similarity]
t/lib/TestApp/ActionRole/Guff.pm [moved from t/lib/TestApp/ActionRole/Moo.pm with 77% similarity]
t/lib/TestApp/Controller/ActionRoles.pm

index fbab60f..466d4d9 100644 (file)
@@ -862,9 +862,9 @@ The following is exactly the same:
 
     package MyApp::Controller::Zoo;
 
-    sub foo  : Local Does('Moo')  { ... } # Catalyst::ActionRole::
-    sub bar  : Local Does('~Moo') { ... } # MyApp::ActionRole::Moo
-    sub baz  : Local Does('+MyApp::ActionRole::Moo') { ... }
+    sub foo  : Local Does('Buzz')  { ... } # Catalyst::ActionRole::
+    sub bar  : Local Does('~Buzz') { ... } # MyApp::ActionRole::Buzz
+    sub baz  : Local Does('+MyApp::ActionRole::Buzz') { ... }
 
 =head2 GET
 
index 2eb0bc1..138727c 100644 (file)
@@ -702,7 +702,7 @@ controller. For Example:
   # in MyApp::Controller::Foo
   sub bar : Chained CaptureArgs(1) { ... }
 
-  # in MyApp::Controller::Foo::Moo
+  # in MyApp::Controller::Foo::Bar
   sub bar : ChainedParent Args(1) { ... }
 
 This builds a chain like C</bar/*/bar/*>.
index 0bf1b0c..a78fbec 100644 (file)
@@ -8,9 +8,9 @@ use lib "$FindBin::Bin/../lib";
 use Catalyst::Test 'TestApp';
 
 my %roles = (
-    foo  => 'TestApp::ActionRole::Moo',
-    bar  => 'TestApp::ActionRole::Moo',
-    baz  => 'Moo',
+    foo  => 'TestApp::ActionRole::Guff',
+    bar  => 'TestApp::ActionRole::Guff',
+    baz  => 'Guff',
     quux => 'Catalyst::ActionRole::Zoo',
 );
 
@@ -24,9 +24,9 @@ while (my ($path, $role) = each %roles) {
 {
     my $resp = request("/actionroles/corge");
     ok($resp->is_success);
-    is($resp->content, 'TestApp::ActionRole::Moo');
+    is($resp->content, 'TestApp::ActionRole::Guff');
     is($resp->header('X-Affe'), 'Tiger');
-   is($resp->header('X-Action-After'), 'moo');
+    is($resp->header('X-Action-After'), 'moo');
 }
 {
     my $resp = request("/actionroles/frew");
similarity index 80%
rename from t/lib/Catalyst/ActionRole/Moo.pm
rename to t/lib/Catalyst/ActionRole/Guff.pm
index 3d4aa51..4f8e046 100644 (file)
@@ -1,4 +1,4 @@
-package Catalyst::ActionRole::Moo;
+package Catalyst::ActionRole::Guff;
 
 use Moose::Role;
 
similarity index 91%
rename from t/lib/Moo.pm
rename to t/lib/Guff.pm
index c28806a..16e558e 100644 (file)
@@ -1,4 +1,4 @@
-package Moo;
+package Guff;
 
 use Moose::Role;
 
similarity index 77%
rename from t/lib/TestApp/ActionRole/Moo.pm
rename to t/lib/TestApp/ActionRole/Guff.pm
index d0fd290..3e8fdd9 100644 (file)
@@ -1,4 +1,4 @@
-package TestApp::ActionRole::Moo;
+package TestApp::ActionRole::Guff;
 
 use Moose::Role;
 
index 37c24f9..69206bb 100644 (file)
@@ -11,12 +11,12 @@ __PACKAGE__->config(
     },
 );
 
-sub foo  : Local Does('Moo')  {}
-sub bar  : Local Does('~Moo') {}
-sub baz  : Local Does('+Moo') {}
+sub foo  : Local Does('Guff')  {}
+sub bar  : Local Does('~Guff') {}
+sub baz  : Local Does('+Guff') {}
 sub quux : Local Does('Zoo')  {}
 
-sub corge : Local Does('Moo') ActionClass('TestAfter') {
+sub corge : Local Does('Guff') ActionClass('TestAfter') {
     my ($self, $ctx) = @_;
     $ctx->stash(after_message => 'moo');
 }