Help for this page

Select Code to Download


  1. or download this
    sub MainSub {
    my $name = (caller 0)[3];
...
sub1();
sub2();
sub3();
  2. or download this
    My name is main::sub1
My name is main::sub2
My name is main::sub3
  3. or download this
    My name is main::MainSub
My name is main::MainSub
My name is main::MainSub
  4. or download this
    sub MainSub {
   my $name = shift;
...
sub sub1 {MainSub('sub1')}
sub sub2 {MainSub('sub2')}
sub sub3 {MainSub('sub3')}