X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FChained.pm;h=a65a198ac5bbf3cbc838ad3323c550e73164bb22;hp=25617dadf64a8a8bc42d133bdcb0039af6e2f6c2;hb=6f1f968a6bc42bf4a4b50a1ee22d3aaecd801876;hpb=6680c772eaa987eafdb32e9437fd2d649dc914d9

diff --git a/lib/Catalyst/DispatchType/Chained.pm b/lib/Catalyst/DispatchType/Chained.pm
index 25617da..a65a198 100644
--- a/lib/Catalyst/DispatchType/Chained.pm
+++ b/lib/Catalyst/DispatchType/Chained.pm
@@ -1,5 +1,7 @@
 package Catalyst::DispatchType::Chained;
 
+use MRO::Compat;
+use mro 'c3';
 use Moose;
 extends 'Catalyst::DispatchType';
 
@@ -28,6 +30,8 @@ has _children_of => (
                      default => sub{ {} },
                     );
 
+no Moose;
+
 # please don't perltidy this. hairy code within.
 
 =head1 NAME
@@ -265,13 +269,13 @@ sub register {
         $part = $path_part[0];
     } elsif (@path_part > 1) {
         Catalyst::Exception->throw(
-          "Multiple PathPart attributes not supported registering ${action}"
+          "Multiple PathPart attributes not supported registering " . $action->reverse()
         );
     }
 
     if ($part =~ m(^/)) {
         Catalyst::Exception->throw(
-          "Absolute parameters to PathPart not allowed registering ${action}"
+          "Absolute parameters to PathPart not allowed registering " . $action->reverse()
         );
     }
 
@@ -328,7 +332,6 @@ sub uri_for_action {
    
 }
 
-no Moose;
 __PACKAGE__->meta->make_immutable;
 
 =head1 USAGE