1 package Moo::HandleMoose::FakeMetaClass;
6 my ($meth) = (our $AUTOLOAD =~ /([^:]+)$/);
7 require Moo::HandleMoose;
8 Moo::HandleMoose::inject_real_metaclass_for((shift)->{name})->$meth(@_)
11 require Moo::HandleMoose;
12 Moo::HandleMoose::inject_real_metaclass_for((shift)->{name})->can(@_)
15 require Moo::HandleMoose;
16 Moo::HandleMoose::inject_real_metaclass_for((shift)->{name})->isa(@_)
18 sub make_immutable { $_[0] }