use vars
qw($VERSION @EXPORT $AUTOLOAD);
$VERSION = '3.016'; # $Id: //depot/Tk8/Xlib/X/X.pm#16 $
use base qw(Exporter DynaLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
VisibilityPartiallyObscured
# This AUTOLOAD is used to 'autoload' constants from the constant()
# XS function. If a constant is not found then control is passed
# to the AUTOLOAD in AutoLoader.
($constname = $AUTOLOAD) =~ s/.*:://;
my $val = constant
($constname, @_ ?
$_[0] : 0);
$AutoLoader::AUTOLOAD
= $AUTOLOAD;
goto &AutoLoader
::AUTOLOAD
;
croak
"Your vendor has not defined X macro $constname";
eval "sub $AUTOLOAD { $val }";
# Preloaded methods go here.
# Autoload methods go after =cut, and are processed by the autosplit program.
# Below is the stub of documentation for your module. You better edit it!