Hi,
I wondered if anyone could point me towards a working example of
creating custom action attribute handlers for Catalyst?
eg. The contents of Catalyst::Controller::SecretAgent in the example below:
package MyApp::Controller::M;
use parent 'Catalyst::Controller::SecretAgent';
# Provides Vehicle() and Gimmick() actions.
sub bond : Vehicle('Aston Martin') {
my ($self, $c) = @_;
# ...
}
sub maxwell_smart : Gimmick('Shoe-phone') {
My ($self, $c) = @_;
#...
}
1;
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
