package Catalyst::ActionChain;
-use strict;
-use base qw/Catalyst::Action/;
+use Moose;
+extends qw(Catalyst::Action);
-__PACKAGE__->mk_accessors(qw/chain/);
-
-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,
-
-);
+has chain => (is => 'rw');
+no Moose;
=head1 NAME
=head1 SYNOPSIS
-See L<Catalyst>.
+See L<Catalyst::Manual::Intro> for more info about Chained actions.
=head1 DESCRIPTION
the action at the *end* of the chain except on dispatch it will execute all
the actions in the chain in order.
-=head1 METHODS
-
-=head2 chain
-
-Accessor for the action chain; will be an arrayref of the Catalyst::Action
-objects encapsulated by this chain.
-
-=head2 dispatch( $c )
-
-Dispatch this action chain against a context; will dispatch the encapsulated
-actions in order.
-
=cut
sub dispatch {
my $last = pop(@chain);
foreach my $action ( @chain ) {
my @args;
- if (my $cap = $action->attributes->{CaptureArgs}) {
- @args = splice(@captures, 0, $cap->[0]);
+ if (my $cap = $action->number_of_captures) {
+ @args = splice(@captures, 0, $cap);
}
local $c->request->{arguments} = \@args;
$action->dispatch( $c );
+
+ # break the chain if exception occurs in the middle of chain
+ return if (@{$c->error} && $c->config->{abort_chain_on_error_fix});
}
$last->dispatch( $c );
}
+sub from_chain {
+ my ( $self, $actions ) = @_;
+ my $final = $actions->[-1];
+ return $self->new({ %$final, chain => $actions });
+}
+
+sub number_of_captures {
+ my ( $self ) = @_;
+ my $chain = $self->chain;
+ my $captures = 0;
+
+ $captures += $_->number_of_captures for @$chain;
+ return $captures;
+}
+
+__PACKAGE__->meta->make_immutable;
+1;
+
+__END__
+
+=head1 METHODS
+
+=head2 chain
+
+Accessor for the action chain; will be an arrayref of the Catalyst::Action
+objects encapsulated by this chain.
+
+=head2 dispatch( $c )
+
+Dispatch this action chain against a context; will dispatch the encapsulated
+actions in order.
+
=head2 from_chain( \@actions )
Takes a list of Catalyst::Action objects and constructs and returns a
Catalyst::ActionChain object representing a chain of these actions
-=cut
+=head2 number_of_captures
-sub from_chain {
- my ( $self, $actions ) = @_;
- my $final = $actions->[-1];
- return $self->new({ %$final, chain => $actions });
-}
+Returns the total number of captures for the entire chain of actions.
+
+=head2 meta
-=head1 AUTHOR
+Provided by Moose
-Matt S. Trout
+=head1 AUTHORS
+
+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
-
-1;