File Coverage

blib/lib/XRI/Descriptor/LocalAccess.pm

Criterion	Covered	Total	%
statement	4	10	40.0
branch	2	6	33.3
condition			n/a
subroutine	2	4	50.0
pod	1	4	25.0
total	9	24	37.5

# Copyright (C) 2004 Identity Commons.  All Rights Reserved.
# See LICENSE for licensing details

# Author: Eugene Eric Kim

package XRI::Descriptor::LocalAccess;

our $VERSION = 0.1;

sub new {
    bless {}, shift;
}

### accessors/mutators

sub service {
    my $self = shift;
    $self->{service} = shift if (@_);
    return $self->{service};
}

sub uris {
    my $self = shift;
    $self->{uris} = shift if (@_);
    return $self->{uris};
}

sub types {
    my $self = shift;
    $self->{types} = shift if (@_);
    return $self->{types};
}

1;
__END__