# .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;
}
}