class TestCase::Module::CommandInfo {
  our $MOVE_BLOCK_PROGRAM_NAME_ZERO : ro string;
  our $MOVE_BLOCK_ARGV_ZERO : ro string[];
  our $MOVE_BLOCK_BASETIME_ZERO : ro long;
  our $MOVE_BLOCK_WARNING_ZERO : ro byte;
   
  INIT {
    $MOVE_BLOCK_PROGRAM_NAME_ZERO = CommandInfo->PROGRAM_NAME;
    $MOVE_BLOCK_ARGV_ZERO = CommandInfo->ARGV;
    $MOVE_BLOCK_BASETIME_ZERO = CommandInfo->BASETIME;
    $MOVE_BLOCK_WARNING_ZERO = (byte)CommandInfo->WARNING;
  }
}