#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

package Foo;
use Moose;
has 'parent' => (is => 'rw');
has 'child' => (is => 'rw');
1;

package main;
my $foo = Foo->new;
$foo->child('tick');
$foo->parent('donald');

die Dumper $foo;