private_path method for actions that returns a string suitable for use in forward...

[catagits/Catalyst-Runtime.git] / lib / Catalyst / ActionChain.pm

diff --git a/lib/Catalyst/ActionChain.pm b/lib/Catalyst/ActionChain.pm
index 819b894..cf48342 100644 (file)
--- a/lib/Catalyst/ActionChain.pm
+++ b/lib/Catalyst/ActionChain.pm
@@ -5,6 +5,8 @@ extends qw(Catalyst::Action);
 
 has chain => (is => 'rw');
 
+no Moose;
+
 =head1 NAME
 
 Catalyst::ActionChain - Chain of Catalyst Actions
@@ -21,20 +23,6 @@ the actions in the chain in order.
 
 =cut
 
-use overload (
-
-    # Stringify to reverse for debug output etc.
-    q{""} => sub { shift->{reverse} },
-
-    # Codulate to execute to invoke the encapsulated action coderef
-    '&{}' => sub { my $self = shift; sub { $self->execute(@_); }; },
-
-    # Make general $stuff still work
-    fallback => 1,
-
-);
-
-
 sub dispatch {
     my ( $self, $c ) = @_;
     my @captures = @{$c->req->captures||[]};
@@ -57,7 +45,6 @@ sub from_chain {
     return $self->new({ %$final, chain => $actions });
 }
 
-no Moose;
 __PACKAGE__->meta->make_immutable;
 1;
 
@@ -84,13 +71,13 @@ Catalyst::ActionChain object representing a chain of these actions
 
 Provided by Moose
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Matt S. Trout
+Catalyst Contributors, see Catalyst.pm
 
 =head1 COPYRIGHT
 
-This program is free software, you can redistribute it and/or modify it under
+This library is free software. You can redistribute it and/or modify it under
 the same terms as Perl itself.
 
 =cut