In Catalyst::Controller register_actions() there's this code:
my $attrs = $self->_parse_attrs( $c, $method, @{ $cache->[1] } );
if ( $attrs->{Private} && ( keys %$attrs > 1 ) ) {
$c->log->debug( 'Bad action definition "'
. join( ' ', @{ $cache->[1] } )
. qq/" for "$class->$method"/ )
if $c->debug;
next;
}
Why are no other attributes allowed if the action include the
"Private" attribute?
This came up because I'm using "SSL" to indicate actions that require
SSL:
sub secret : Local SSL {}
But, it would also be handy to be able to protect all actions below
a give controller via:
sub auto : Private SSL { 1 }
--
Bill Moseley
[EMAIL PROTECTED]
_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/
