File Coverage

blib/lib/Data/ACL.pm

Criterion	Covered	Total	%
statement	24	30	80.0
branch	2	6	33.3
condition	1	3	33.3
subroutine	7	9	77.7
pod	3	5	60.0
total	37	53	69.8

package Data::ACL;

use Carp;
use Data::ACL::Realm;

use strict;
use vars qw/ $VERSION /;

$VERSION = '0.02';


sub AddPolicy {
    my ( $self, $realm, @args ) = @_;
    my $obj = $self->Realm( $realm );
    return $obj->AddPolicy( @args );
}


sub IsAuthorized {
    my ( $self, $user, $realm ) = @_;
    my $obj = $self->{'realms'}->{$realm};
    unless ( UNIVERSAL::isa( $obj, 'Data::ACL::Realm' ) ) {
        croak( __PACKAGE__, "->IsAuthorized : Undefined realm or unknown realm object - ", $realm );
    }
    my $default = $self->{'realms'}->{'all'};
    if ( UNIVERSAL::isa( $default, 'Data::ACL::Realm' ) ) {
        return undef unless $default->IsAuthorized( $user );
    }
    $obj->IsAuthorized( $user );
}


sub Realm {
    my ( $self, $realm ) = @_;
    $self->{'realms'}->{$realm} ||= Data::ACL::Realm->new( $self->{'set'} );
    return $self->{'realms'}->{$realm};
}


sub RemovePolicy {
    my ( $self, $realm, @args ) = @_;
}


sub new {
    my ( $class, $set ) = @_;
    my $self = bless {
        'realms'    =>  {},
        'set'       =>  $set
    }, $class;
    return $self;
}


1;


__END__