local $test_object->{method} = 
      sub { print "got:".$_[0]->{_proto_}->method() };