File Coverage

lib/dot/meta.pm

Criterion	Covered	Total	%
statement	26	35	74.2
branch	8	8	100.0
condition			n/a
subroutine	8	13	61.5
pod	0	8	0.0
total	42	64	65.6

# $Id$
# $Source$
# $Author$
# $HeadURL$
# $Revision$
# $Date$
package dot::meta;

use strict;
use warnings;

use Carp         qw(confess);
use Scalar::Util qw(blessed reftype);
use Class::Dot::Registry;

my $REGISTRY = Class::Dot::Registry->new();

sub for {
    goto &with;
}

sub with {
    my ($self, $the_other_class) = @_;

    confess 'dot::meta::for needs class instance or class name'
        if not defined $the_other_class;

    my $other_class = ref $the_other_class
        ? ref $the_other_class
        : $the_other_class;

    return $REGISTRY->get_metaclass_for($other_class);
}

sub incompatible  {
    my ($class) = @_;

    confess 'Must be instance to check compatibility, not class name'
        if not blessed $class;

    my $name = ref $class;

    my $type = reftype $class;

    return "Instance must be HASH-based, but $name is $type-based"
        if $type ne 'HASH';

    return;
}

# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #
#                           Attribute Related.
# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #

sub has {
    my ($class, @args) = @_;
    with($class)->add_attribute(@args);
}

sub hasattr {
    my ($class, @args) = @_;
    with($class)->has_attribute(@args);

}

sub getattr {
    my ($class, @args) = @_;
    with($class)->get_attribute(@args);
}

sub setattr {
    my ($class, @args) = @_;
    with($class)->set_attribute(@args);

}

sub delattr {
    # NOT YET IMPLEMENTED
}


1;

__END__