File Coverage

blib/lib/MooseX/ClosedHash/Meta/Class.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	11	11	100.0

package MooseX::ClosedHash::Meta::Class;

BEGIN {
	$MooseX::ClosedHash::Meta::Class::AUTHORITY = 'cpan:TOBYINK';
	$MooseX::ClosedHash::Meta::Class::VERSION   = '0.002';
}

use Moose::Role;
use Moose::Util qw(does_role);

before superclasses => sub
{
	my $meta = shift;
	for (@_)
	{
		next if ref;
		confess "MooseX::ClosedHash cannot extend a non-MooseX::ClosedHash class"
			unless does_role(Class::MOP::class_of($_), __PACKAGE__);
	}
};

1;