use B qw( ); BEGIN { *_moo = \&B::moo; }