t/402-basic-role-application.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 1;
   5
   6 do {
   7     package Role;
   8     use Mouse::Role;
   9
  10     has 'attr';
  11
  12     no Mouse::Role;
  13 };
  14
  15 do {
  16     package Class;
  17     use Mouse;
  18     with 'Role';
  19
  20     no Mouse;
  21 };
  22
  23 ok(Class->meta->has_attribute('attr'), "role application added the attribute");
  24