Select Code to Download

#persistB.obj
$VAR1 = { foo => 'bar' };

my $object = do "persistB.obj";
$object = b->new($object);

my $self = bless {}, ref($class)||$class;