Help for this page

Select Code to Download


  1. or download this
    >perl -wle"sub real_AUTOLOAD { undef &AUTOLOAD; } sub AUTOLOAD { print
+ 'A'; goto &real_AUTOLOAD } f() for 1..2;"
A
Undefined subroutine &main::f called at -e line 1.
  2. or download this
    >perl -wle"sub AUTOLOAD { print 'A'; undef *AUTOLOAD; } f() for 1..2;"
A
Undefined subroutine &main::f called at -e line 1.