10 package Class::Vacuum::Innards;
13 package Class::Vacuum;
17 sub meta_lookup { $_[0] }
20 Moose::Exporter->setup_import_methods(
22 meta_lookup => sub { Class::MOP::class_of('Class::Vacuum::Innards') },
23 with_meta => ['meta_lookup'],
30 BEGIN { Class::Vacuum->import };
36 ::is(meta_lookup, Class::Vacuum::Innards->meta, "right meta_lookup");
39 ok(Class::Vacuum::Innards->can('star_rod'), 'Vacuum stole the star_rod method');
40 ok(!Victim->can('star_rod'), 'Victim does not get it at all');
43 package Class::Vacuum::Reexport;
47 Moose::Exporter->setup_import_methods(also => 'Class::Vacuum');
53 BEGIN { Class::Vacuum::Reexport->import }
59 ::is(meta_lookup, Class::Vacuum::Innards->meta, "right meta_lookup");
62 ok(Class::Vacuum::Innards->can('parasol'), 'Vacuum stole the parasol method');
63 ok(!Victim2->can('parasol'), 'Victim does not get it at all');