Help for this page

Select Code to Download


  1. or download this
    use Exporter;
    our @ISA = qw(Exporter);
    ...
       LOG_ERROR => 3,
    };
    our @EXPORT = qw(LOG_DEBUG LOG_INFO LOG_WARN LOG_ERROR);
    
  2. or download this
    my $obj = MyObject->new(level=>LOG_DEBUG);