Help for this page

Select Code to Download


  1. or download this
    package My::This;
sub thing { print 'This' }
...
package main;
&My::This::thing; # prints This
&My::That::thing; # prints That
  2. or download this
    package My::This;
sub new { bless {} }
...
my $That = My::That->new();
$This->thing; # prints This
$That->thing; # prints That