use strict;
use warnings;

use lib '.';
use Daughter;
use Son;

my $d = Daughter->new();
my $s = Son->new();

$d->s()->{'news'} = 'bad';

print $s->s()->{'news'}."\n";

my $d2 = Daughter->new();
print $d->s()->{'news'}."\n";

$d2->s()->{'news'} = 'bad123';

print $s->s()->{'news'}."\n";
print $d->s()->{'news'}."\n";
print $d2->s()->{'news'}."\n";

# prints
bad
bad
bad123
bad123
bad123