view release on metacpan or  search on metacpan

lib/Geo/GD/Image.pm  view on Meta::CPAN

our $VERSION = '0.02';
use GD;
use GD::Image;
our @ISA=qw(GD::Image);
require XSLoader;
XSLoader::load('Geo::GD::Image', $VERSION);

# GD::Image->newXXXX methods don't bless the right class...


for my $m (qw(new newTrueColor newFromGd newFromGd2 newFromGd2Part newFromGif newFromJpeg newFromPng)) {
  no strict 'refs';
  *$m = sub { my $c = shift; my $s = "SUPER::$m"; bless $c->$s(@_),$c; };
}


1;
__END__

=head1 NAME