sub codewrapper {
        my $self = shift;
        $self->{code}->share('$self');
        $self->{code}->share('$test');
        $code=$_[0];
        $self->{code}->reval($code);
        $test->{code}->reval($code);
}