Help for this page

Select Code to Download


  1. or download this
    package MyPack;
use strict;
...
    my $self = shift; 
    print "foo has been modified.\n";
}
  2. or download this
    use MyPack;
use strict;
...
$obj->foo();
$obj->changeFoo();
$obj->foo();
  3. or download this
    foo is unmodified.
foo has been modified.