Login
da4f0da1b6f0d294f3d12977fd65f22b921d96b6
[gknop/Perl-Critic.git] / t / Subroutines / ProhibitBuiltinHomonyms.run
1 ## name Basic failures
2 ## failures 3
3 ## cut
4 sub open {}
5 sub map {}
6 sub eval {}
7
8 #-----------------------------------------------------------------------------
9
10 ## name Basic passing
11 ## failures 0
12 ## cut
13 sub my_open {}
14 sub my_map {}
15 sub eval2 {}
16
17 #-----------------------------------------------------------------------------
18
19 ## name Acceptable homonyms
20 ## failures 0
21 ## cut
22 sub import   { do_something(); }
23 sub AUTOLOAD { do_something(); }
24 sub DESTROY  { do_something(); }
25 BEGIN { do_something(); }
26 INIT  { do_something(); }
27 CHECK { do_something(); }
28 END   { do_something(); }