sub AUTOLOAD {

   # This AUTOLOAD is used to 'autoload' constants from the constant()
   # XS function.

   ( my $constname = $AUTOLOAD ) =~ s/.*:://;
   return constant( $constname, 0);

}