Help for this page

Select Code to Download


  1. or download this
        use 5.012;
    use Sub::Name 'subname';
...
    eval { the_pad_test() };
    print $@ =~ /^Undefined sub/ ? "fails (correct)\n" : "ERROR: $@";
  2. or download this
    Our name is:    main::__ANON__
Before subname: __ANON__
Our name is:    main::the_pad_test
After subname:  the_pad_test
the_pad_test(): fails (correct)