t/foreign/MooseX-Method-Signatures/precedence.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 4;
   4
   5 use Function::Parameters qw(:strict);
   6
   7 my @methods = (method { 1 }, method { 2 }, method { 3 });
   8 is(scalar @methods, 3);
   9
  10 isa_ok($_, 'CODE') for @methods;