1234567891011121314151617181920 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 warningsub meth2 {}method meth2() {}# This one shouldn't eithermethod meth3() {}{ no warnings 'redefine'; method meth3() {}}1;
package
Redefined;
use
strict;
warnings;
Function::Parameters
qw(:strict)
;
Carp
qw/croak/
method meth1() {}
# this one should not trigger a redfined warning
sub
meth2 {}
method meth2() {}
# This one shouldn't either
method meth3() {}
{
no
warnings
'redefine'
}
1;