Select Code to Download

sub AUTOLOAD {
    # This AUTOLOAD is used to 'autoload' constants from the constant(
+)
...
    eval "sub $AUTOLOAD { $val }";
    goto &$AUTOLOAD;
}

static double
constant(char* name)
...
    errno = ENOENT;
    return 0;
}