Select Code to Download

package Father;

...
  return bless { news => undef }, $class;
}
1;

package Daughter;

...
}

1;

package Son;

...
}

1;

use lib '.';
use Daughter;
...
print Dumper($son);
$daughter->other;
print Dumper($daughter);

$ perl 11156317.pl

...
$VAR1 = bless( {
                 'news' => 'bad'
               }, 'Daughter' );