sub DESTROY {
    my $self = shift;
    print "wrapper->DESTROY\n";
    my $obj_class = ref($self);
    $obj_class =~ s/Pixie::objwrapper:://;
    if ( my $method = $obj_class->can('DESTROY') ) {
        $method->($self);
    }
}