Help for this page

Select Code to Download

Select or download this

sub AUTOLOAD {
    # This AUTOLOAD is used to 'autoload' constants from the constant(
+)
...
   ($constname = $AUTOLOAD) =~ s/.*:://;

print "\nDEBUG " . $constname . "\n";