/usr/share/perl5/Catalyst/ActionChain.pm is in libcatalyst-perl 5.90075-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | package Catalyst::ActionChain;
use Moose;
extends qw(Catalyst::Action);
has chain => (is => 'rw');
no Moose;
=head1 NAME
Catalyst::ActionChain - Chain of Catalyst Actions
=head1 SYNOPSIS
See L<Catalyst::Manual::Intro> for more info about Chained actions.
=head1 DESCRIPTION
This class represents a chain of Catalyst Actions. It behaves exactly like
the action at the *end* of the chain except on dispatch it will execute all
the actions in the chain in order.
=cut
sub dispatch {
my ( $self, $c ) = @_;
my @captures = @{$c->req->captures||[]};
my @chain = @{ $self->chain };
my $last = pop(@chain);
foreach my $action ( @chain ) {
my @args;
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. We
# check the global config flag 'abort_chain_on_error_fix', but this
# is now considered true by default, so unless someone explictly sets
# it to false we default it to true (if its not defined).
my $abort = defined($c->config->{abort_chain_on_error_fix}) ?
$c->config->{abort_chain_on_error_fix} : 1;
return if ($c->has_errors && $abort);
}
$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
=head2 number_of_captures
Returns the total number of captures for the entire chain of actions.
=head2 meta
Provided by Moose
=head1 AUTHORS
Catalyst Contributors, see Catalyst.pm
=head1 COPYRIGHT
This library is free software. You can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
|