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}