my $object = $proto->new();
$object->set(some=>'stuff');
{ my $test_object = $object;
  $test_object->{method} = 
      sub { print "got:".$_[0]->{_proto_}->method() };
  $test_object->method();
}