package mObject_T;
use Moose; # automatically turns on strict and warnings
has '_logicErrors' => (is => 'rw', isa => 'Str');
...

##</code><code>##

package mSomeObject_T;
extends mObject_T;
...

##</code><code>##

contract('checkName')
	->in(is_a("mName_T"),
		is_a("mObject_T"))
	->enable;

##</code><code>##

my $obj = new mSomeObject_T;
checkName($nameObj, $obj);