lib/Moo/HandleMoose/FakeMetaClass.pm

   1 package Moo::HandleMoose::FakeMetaClass;
   2
   3 sub DESTROY { }
   4
   5 sub AUTOLOAD {
   6   my ($meth) = (our $AUTOLOAD =~ /([^:]+)$/);
   7   require Moo::HandleMoose;
   8   Moo::HandleMoose::inject_real_metaclass_for((shift)->{name})->$meth(@_)
   9 }
  10 sub can {
  11   require Moo::HandleMoose;
  12   Moo::HandleMoose::inject_real_metaclass_for((shift)->{name})->can(@_)
  13 }
  14 sub isa {
  15   require Moo::HandleMoose;
  16   Moo::HandleMoose::inject_real_metaclass_for((shift)->{name})->isa(@_)
  17 }
  18 sub make_immutable { $_[0] }
  19
  20 1;