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

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

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

$constant_name

static method $constant_name : int ();

Gets the value of $constant_name. If this constant value is not defined on this 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;
}
}