t/404-methods.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5 BEGIN {
   6     if (eval "require Class::Method::Modifiers; 1") {
   7         plan tests => 1;
   8     }
   9     else {
  10         plan skip_all => "Class::Method::Modifiers required for this test";
  11     }
  12 }
  13 use Mouse::Util ':test';
  14
  15 my @calls;
  16
  17 do {
  18     package Role;
  19     use Mouse::Role;
  20
  21     sub method {
  22         push @calls, 'Role::method';
  23     };
  24
  25     no Mouse::Role;
  26 };
  27
  28 do {
  29     package Class;
  30     use Mouse;
  31     with 'Role';
  32
  33     no Mouse;
  34 };
  35
  36 Class->method;
  37 is_deeply([splice @calls], [
  38     'Role::method',
  39 ]);
  40