Catalyst Catalyst::Base
sub auto : Private が気になったのでメモ。
sub _AUTO : Private { my ( $self, $c ) = @_; my @auto = $c->get_actions( 'auto', $c->namespace ); foreach my $auto (@auto) { $auto->dispatch( $c ); return 0 unless $c->state; } return 1; }
http://search.cpan.org/~mramberg/Catalyst-Runtime-5.7006/lib/Catalyst/Base.pm