git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/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(); }