Select Code to Download

package Class;
use Moose;
...
print Dumper $obj;
$obj->{foo} = 'bar';
print Dumper $obj;