The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

# .spvm file
cat helper/constants.txt | perl helper/generate_Constant.pl Net::SSLeay::Constant spvm > .tmp/Constant.spvm
# .c file
cat helper/constants.txt | perl helper/generate_Constant.pl Net::SSLeay::Constant c > .tmp/Constant.c
# .pm file
cat helper/constants.txt | perl helper/generate_Constant.pl Net::SSLeay::Constant pm > .tmp/Constant.pm

$constant_name

static method $constant_name : int ();

Returns the value of $constant_name. If this constant is not defined on the system, an exception is thrown with the error id set to the basic type ID of the Error::NotSupported class.

EOS

print $output;
}
else {
die;
}
}