t/metaclasses/exporter_also_with_trait.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5 use Test::Moose;
   6
   7 BEGIN {
   8     package My::Meta::Role;
   9     use Moose::Role;
  10     $INC{'My/Meta/Role.pm'} = __FILE__;
  11 }
  12
  13 BEGIN {
  14     package My::Exporter;
  15     use Moose::Exporter;
  16
  17     Moose::Exporter->setup_import_methods(
  18         also => ['Moose'],
  19         class_metaroles => {
  20             class => ['My::Meta::Role'],
  21         },
  22     );
  23     $INC{'My/Exporter.pm'} = __FILE__;
  24 }
  25
  26 {
  27     package My::Class;
  28     use My::Exporter;
  29 }
  30
  31 {
  32     my $meta = My::Class->meta;
  33     isa_ok($meta, 'Moose::Meta::Class');
  34     does_ok($meta, 'My::Meta::Role');
  35 }
  36
  37 done_testing;