2 # ============================================================================
3 # Zebra perl API header
4 # =============================================================================
7 # ============================================================================
8 package IDZebra::Logger;
11 our @ISA = qw(Exporter);
28 our %EXPORT_TAGS = ('flags' => [qw
38 'calls' => [qw(logf logm)]
41 use constant LOG_FATAL => $IDZebra::LOG_FATAL;
42 use constant LOG_DEBUG => $IDZebra::LOG_DEBUG;
43 use constant LOG_WARN => $IDZebra::LOG_WARN;
44 use constant LOG_LOG => $IDZebra::LOG_LOG;
45 use constant LOG_ERRNO => $IDZebra::LOG_ERRNO;
46 use constant LOG_FILE => $IDZebra::LOG_FILE;
47 use constant LOG_APP => $IDZebra::LOG_APP;
48 use constant LOG_MALLOC => $IDZebra::LOG_MALLOC;
49 use constant LOG_ALL => $IDZebra::LOG_ALL;
55 &_log($_[1],"%s",$_[2]);
57 elsif ($_[0] =~ /^IDZebra::/) {
58 &_log($_[1],"%s",$_[2]);
60 &_log($_[0],"%s",$_[1]);
69 elsif ($_[0] =~ /^IDZebra::/) {
78 my ($level, $format, @args) = @_;
79 IDZebra::logMsg($level, sprintf($format, @args));
98 Peter Popovics, pop@technomat.hu
102 IDZebra, IDZebra::Data1, Zebra documentation