[p5sagit/Function-Parameters.git] / t / foreign / MooseX-Method-Signatures / lib / Redefined.pm

package Redefined;
use strict;
use warnings;
use Function::Parameters qw(:strict);
use Carp qw/croak/;

method meth1 {}

method meth1 {}

# this one should not trigger a redfined warning
sub meth2 {}
method meth2 {}

# This one shouldn't either
method meth3 {}
{ no warnings 'redefine';
  method meth3 {}
}
1;
Commit	Line	Data
595edbcf	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;