added some NOT_FOUND events for record, copy, and circ (more to come)
[OpenSRF.git] / src / perlmods / OpenSRF / Utils / Logger.pm
index f2a3ab7..dcc0c58 100644 (file)
@@ -24,8 +24,9 @@ i.e. $logger->error( $msg, WARN );  # logs at log level WARN
 =cut
 
 @EXPORT_OK = qw/ NONE ERROR WARN INFO DEBUG INTERNAL /;
+push @EXPORT_OK, '$logger';
 
-%EXPORT_TAGS = ( level => [ qw/ NONE ERROR WARN INFO DEBUG INTERNAL / ] );
+%EXPORT_TAGS = ( level => [ qw/ NONE ERROR WARN INFO DEBUG INTERNAL / ], logger => [ '$logger' ] );
 
 my $config;                                                    # config handle
 my $loglevel;                                          # global log level
@@ -40,6 +41,8 @@ my $logfile_enabled = 1;              # are we logging to a file?
 my $act_logfile_enabled = 1;   # are we logging to a file?
 my $logdir;                                                    # log file directory
 
+our $logger = "OpenSRF::Utils::Logger";
+
 # log levels
 sub ACTIVITY   { return -1; }
 sub NONE                       { return 0;     }