view release on metacpan or  search on metacpan

Lock.pm  view on Meta::CPAN

    if ($AUTOLOAD =~ /::(_?[a-z])/) {
        $AutoLoader::AUTOLOAD = $AUTOLOAD;
        goto &AutoLoader::AUTOLOAD
    }
    local($constname);
    ($constname = $AUTOLOAD) =~ s/.*:://;
    my $val;
    $val = constant($constname, @_ ? ($_[0] =~ /^\d+/ ? $_[0] : 0) : 0);
    if ($!) {
      if ($! =~ /Invalid/) {
        my ($file, $line) = (caller)[1,2];
	die "$file:$line: $constname is not a valid $SELF macro.\n";
      }
    }
    eval "sub $AUTOLOAD { $val }";
    goto &$AUTOLOAD;
}

bootstrap File::Lock;

# Preloaded methods go here.