#!/usr/bin/perl -w
use Test;
plan tests => 3;
{
package Class;
sub new {}
}
{
package MouseClass;
use Mouse;
}
{
package Foo;
use Mouse;
has unknown => (
is => 'rw',
isa => 'HashRef[Unknown]'
);
has class => (
is => 'rw',
isa => 'HashRef[Class]',
);
has mouse => (
is => 'rw',
isa => 'HashRef[MouseClass]',
);
}
my $obj = Foo->new;
ok eval { $obj->unknown({}); };
ok eval { $obj->class({}); };
ok eval { $obj->mouse({}); };