use strict;
use warnings;

package Child;
use Moose;

has 'context' => (is => 'rw');

package Teacher;
my $tom = Child->new(context => 'Teacher');
print $tom->context . "\n";

package Parent;
my $kit = Child->new(context => 'Parent');
print $kit->context . "\n";