xt/more-jenga.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use FindBin qw/ $Bin /;
   6 use lib "$Bin/lib";
   7
   8 {
   9     package ExampleRole;
  10     use Moo::Role;
  11
  12     requires 'foo';
  13
  14     with qw/
  15         ExampleMooseRoleOne
  16         ExampleMooseRoleTwo
  17     /;
  18 }
  19
  20 {
  21     package ExampleClass;
  22     use Moose;
  23
  24     with 'ExampleRole';
  25
  26     sub foo {}
  27 }
  28
  29 ok 1;
  30
  31 done_testing;
  32