t/foreign/MooseX-Method-Signatures/lib/Redefined.pm

   1 package Redefined;
   2 use strict;
   3 use warnings;
   4 use Function::Parameters qw(:strict);
   5 use Carp qw/croak/;
   6
   7 method meth1 {}
   8
   9 method meth1 {}
  10
  11 # this one should not trigger a redfined warning
  12 sub meth2 {}
  13 method meth2 {}
  14
  15 # This one shouldn't either
  16 method meth3 {}
  17 { no warnings 'redefine';
  18   method meth3 {}
  19 }
  20 1;