package Class;
use Moose;

package main;
use strict;
use warnings;
use Data::Dumper;

my $obj = Class->new;
print Dumper $obj;
$obj->{foo} = 'bar';
print Dumper $obj;

##</code><code>##