use Exporter;
our @ISA = qw(Exporter);
use constant {
   LOG_DEBUG => 0,
   LOG_INFO  => 1,
   LOG_WARN  => 2,
   LOG_ERROR => 3,
};
our @EXPORT = qw(LOG_DEBUG LOG_INFO LOG_WARN LOG_ERROR);

##</code><code>##

my $obj = MyObject->new(level=>LOG_DEBUG);