—package
Gimp::Lib;
use
strict vars;
use
Carp;
require
DynaLoader;
@ISA
=
qw(DynaLoader)
;
$VERSION
=
$Gimp::VERSION
;
# $AutoLoader::AUTOLOAD = $AUTOLOAD;
# goto &AutoLoader::AUTOLOAD;
bootstrap Gimp::Lib
$VERSION
;
# Preloaded methods go here.
sub
AUTOLOAD {
my
$constname
;
(
$constname
=
$AUTOLOAD
) =~ s/.*:://;
if
(_gimp_procedure_available (
$constname
)) {
eval
"sub $AUTOLOAD { gimp_call_procedure '$constname',\@_ }"
;
goto
&$AUTOLOAD
;
}
else
{
croak
"$constname not defined in Gimp"
;
}
}
# Autoload methods go after =cut, and are processed by the autosplit program.
1;
__END__
=head1 NAME
Gimp::Lib - Interface to libgimp (as opposed to Gimp::Net)
=head1 SYNOPSIS
use Gimp qw( interface=lib );
=head1 DESCRIPTION
This is package that uses libgimp to interface with the Gimp, i.e. the
normal interface to use with the Gimp. You don't normally use
this module directly, look at the documentation for the
package "Gimp".
=head1 AUTHOR
Marc Lehmann, pcg@goof.com
=head1 SEE ALSO
perl(1), gimp(1).
=cut