package My::Globals; ########################################################### # USES ########################################################### use strict; use warnings; use base 'Exporter'; use constant { FALSE => 0, TRUE => 1, CANCEL => 2 }; ########################################################### # EXPORT ########################################################### our @EXPORT = qw(TRUE FALSE CANCEL); ########################################################### # VARIABLES ########################################################### # NONE ########################################################### # PUBLIC FUNCTIONS ########################################################### # NONE ########################################################### # PRIVATE FUNCTIONS ########################################################### # NONE 1;