Help for this page

Select Code to Download

Select or download this

sub AUTOLOAD {
    my($constname);
...
    eval "sub $AUTOLOAD { $val }";
    goto &$AUTOLOAD;
}

Select or download this

    my($constname);
    ($constname = $AUTOLOAD) =~ s/.*:://;
    my $val = constant($constname, @_ ? $_[0] : 0);