[Catalyst] Why no extra attributes on Private actions?

[Bill Moseley]

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
moseley at hank.org