X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FActionContainer.pm;h=a51f90a0e2d9f14e04b24bf6e4b7cfce94d446e6;hp=9d41f4e3947ee57b9748296c49304079cf028c2e;hb=0fc2d522eec43202c21e9f0062e43f10db4d9008;hpb=8e061fef6ed2e38808032cbb722098c5c183ec03 diff --git a/lib/Catalyst/ActionContainer.pm b/lib/Catalyst/ActionContainer.pm index 9d41f4e..a51f90a 100644 --- a/lib/Catalyst/ActionContainer.pm +++ b/lib/Catalyst/ActionContainer.pm @@ -15,6 +15,7 @@ to represent the various dispatch points in your application. =cut +use Class::C3; use Moose; use overload ( @@ -27,14 +28,14 @@ use overload ( has part => (is => 'rw', required => 1, lazy => 1, default => sub { {} }); has actions => (is => 'rw', required => 1, lazy => 1, default => sub { {} }); -around 'new' => sub { - my $next = shift; +no Moose; + +sub new { my ($self, $params) = @_; $params = { part => $params } unless ref $params; - $next->($self, $params); -}; + $self->next::method($params); +} -no Moose; sub get_action { my ( $self, $name ) = @_;