xt/moose-consume-moo-role-after-consumed-by-moo.t

   1 use strictures;
   2 use Test::More;
   3 use lib 'xt/lib';
   4
   5 BEGIN { $::ExampleMooRole_LOADED = 0 }
   6 BEGIN {
   7     package ExampleMooConsumer;
   8     use Moo;
   9
  10     with "ExampleMooRole";
  11 }
  12 BEGIN {
  13     package ExampleMooseConsumer;
  14     use Moose;
  15
  16     with "ExampleMooRole";
  17 }
  18
  19 is $::ExampleMooRole_LOADED, 1, "role loaded only once";
  20
  21 done_testing;