BEGIN {
    *GD::Image:: = *SVG::GD::Image::;
}	

##</code><code>##

BEGIN {
    *SVG::H:: = *GD::
    *GD::Image:: = *SVG::GD::Image::;
}	

##</code><code>##

SVG::GD::Image::new {
   ....create object and bless... as $self
   $self->{_GD_} = SVG::H::Image::new()
}

##</code><code>##

 *SVG::H::GD::Image::new = \&GD::Image::new;
 *SVG::H::GD::Image::meths = \&GD::Image::meths;

##</code><code>##

 *SVG::H::GD::_new = \&GD::_new;
 ...etc for every xs subroutine...