28/10/2008
Role Based Access Control
12
Simple Authorisation in Catalyst
luser <-many--many-> role
lrole has meaning in your application code
lCatalyst::Plugin::Authorization::Roles
luse Catalyst qw/   
l Authentication    Authentication::Store::ThatSupportsRoles   
l Authorization::Roles
l/;
lsub delete : Local {   
l my ( $self, $c ) = @_;
l $c->assert_user_roles( qw/admin/ );
l # only admins can delete   
l $c->model("Foo")->delete_it();
l}