[Catalyst] Catalyst action attributes

[Toby Corkindale]

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;