*Hackmare::GD::Image::new = \&GD::Image::new;
*GD::Image:: = *SVG::GD::Image::;

package SVG::GD::Image;

#constructor
sub SVG::GD::Image::new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
    $self->{_GD_} = new Hackmare::GD::Image(@_)
        || print STDERR "Quitting. Unable to construct new GD::Image
    object using GD: $!\n";

    ....stuff....	

    return $self
}