Help for this page

Select Code to Download


  1. or download this
    package MyMother;
use strict;
...
}

sub modified { $_[0]->{MODIFIED} }
  2. or download this
    package MyChild;
use strict;
...
   }
   $self;
}
  3. or download this
    #!/usr/bin/perl -wd
use MyChild;
...
$ch = MyChild->new(1);
$ch->{MODIFIED} = 1;
print $ch->modified."\n";