my $foo = Foo->new;
$foo->child(...);
$foo->parent(...);


package Foo;
use Moose;
has 'parent';
has 'child';
1;