lib/Catalyst/Plugin/Authorization/ACL/Paranoid.pm

   1 package Catalyst::Plugin::Authorization::ACL::Paranoid;
   2 use base qw/Class::Data::Inheritable/;
   3
   4 # based upon Catalyst::Plugin::Authorization::ACL;
   5
   6 use strict;
   7 use warnings;
   8
   9 #use NEXT;
  10 use Catalyst::Plugin::Authorization::ACL::Paranoid::Engine;
  11
  12 use Scalar::Util();
  13
  14 BEGIN { __PACKAGE__->mk_classdata( '_acl_engine' ) }
  15
  16 sub setup_actions {
  17     my $c = shift;
  18     my $ret = $c->NEXT::setup_actions( @_ );
  19
  20     $c->_acl_engine(
  21         Catalyst::Plugin::Authorization::ACL::Paranoid::Engine->new( $c ) );
  22
  23     return $ret;
  24 }
  25
  26 sub execute {
  27     my ( $c, $class, $action ) = @_;
  28
  29     local $NEXT::NEXT{ $c, "execute" };
  30
  31     if ( Scalar::Util::blessed( $action ) ) {
  32         unless ( $c->_acl_engine->is_allowed( $c, $class, $action ) ) {
  33             $c->res->status( 403 );
  34             $c->error( 'Access denied' );
  35             return;
  36         }
  37     }
  38
  39     $c->NEXT::execute( $class, $action );
  40 }
  41
  42 sub acl {
  43     my ( $c ) = shift;
  44     my %rules = @_;
  45
  46     use Data::Dumper;
  47
  48     $c->_acl_engine->rules( \%rules );
  49 }
  50
  51 =head1 AUTHOR
  52
  53 vti
  54
  55 =head1 COPYRIGHT
  56
  57 This program is free software, you can redistribute it and/or modify it under
  58 the same terms as Perl itself.
  59
  60 =cut
  61
  62 1;