trAvis - MANAGER

Edit File: 003_RT50421.t

#!/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({}); };