File Coverage

lib/Class/Dot/Meta/Accessor.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	2	4	50.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	35	38	92.1

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

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

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

use Carp qw(croak);
use Class::Plugin::Util qw(load_plugins get_plugins);

load_plugins(__PACKAGE__, [qw(Base)]);

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

    my $wanted_type = ucfirst lc $options_ref->{type};
    croak 'Missing accessor type'
        if not defined $wanted_type;

    my $accessor_classes = get_plugins();

    if (! exists $accessor_classes->{$wanted_type}) {
        croak "No such accessor type: $wanted_type";
    }

    my $accessor_class = $accessor_classes->{$wanted_type};

    return $accessor_class->new($options_ref);
}

1;

__END__