### from sub hash2wddx

my $var = eval "WDDX::\u$type->new( \$val )" or
    croak "Unable to create object of type WDDX::\u$type: " .
        _shift_blame( $@ );
$new_hash->{$name} = $var;
next;

## sub continues