Help for this page

Select Code to Download


  1. or download this
    package Father;
use strict;
...
}
sub s { return $_[0]->{s} }
1;
  2. or download this
    package Daughter; # or Son
use strict;
...
use 5.010;
use parent qw(Father);
1;
  3. or download this
    use strict;
use warnings;
...
bad123
bad123
bad123
  4. or download this
    my $shared_data = {};
my $father = Father->new($shared_data);
my $d = $father->new_daughter();
...