File Coverage

lib/Class/Dot/Type.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch			n/a
condition			n/a
subroutine	14	14	100.0
pod	9	9	100.0
total	57	57	100.0

# $Id$
# $Source$
# $Author$
# $HeadURL$
# $Revision$
# $Date$
package Class::Dot::Type;

use strict;
use warnings;
use version;
use 5.00600;

our $AUTHORITY = 'cpan:ASKSH';
our $VERSION   = qv('2.0.0_15');

sub new {
    my ($class, $options_ref) = @_;
    my $self = bless { %{$options_ref} }, $class;
    return $self;
}

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

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

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

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

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

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

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

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

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

1;

__END__