File Coverage

blib/lib/SVN/Access/Resource.pm

Criterion	Covered	Total	%
statement	31	38	81.5
branch	5	10	50.0
condition	0	3	0.0
subroutine	8	10	80.0
pod	5	6	83.3
total	49	67	73.1

package SVN::Access::Resource;

use 5.006001;
use strict;
use warnings;

use Tie::IxHash;

our $VERSION = '0.11';

sub new {
    my ($class, %attr) = @_;

    # keep our hashes in order.  Thanks Kage of HackThisSite.org
    my (%authorized, $t);
    $t = tie(%authorized, 'Tie::IxHash');

    # turn hashref into arrayref up front
    if (ref($attr{authorized}) eq "HASH") {
        $attr{authorized} = [(%{$attr{authorized}})];
    }

    # make sure we copy in stuff that was passed.
    %authorized = (@{$attr{authorized}});

    $attr{authorized} = \%authorized;
    $attr{_authorized_tie} = $t;

    return bless(\%attr, $class);
}

sub authorized {
    my ($self) = @_;
    if (ref ($self->{authorized}) eq "HASH") {
        return $self->{authorized};
    }
    return undef;
}

sub is_authorized {
    my ($self, $entity) = @_;
    if (defined($self->{authorized}) && exists($self->{authorized}->{$entity})) {
        return 1;
    }
    return undef;
}

sub authorize {
    my ($self, @rest) = @_;

    if ($rest[$#rest] =~ /^\d+$/o) {
        $self->{_authorized_tie}->Splice($rest[$#rest], 0, @rest[0..$#rest - 1]);
    } else {
        $self->{_authorized_tie}->Push(@rest);
    }
}

sub deauthorize {
    my ($self, $entity) = @_;
    delete ($self->{authorized}->{$entity}) if ref($self->{authorized});
}

sub name {
    my ($self) = @_;
    return $self->{name};
}

1;
__END__