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; |