--- trunk/lib/WebPAC/Common.pm	2005/12/15 17:01:10	253
+++ trunk/lib/WebPAC/Common.pm	2005/12/16 01:04:14	254
@@ -15,11 +15,11 @@
 
 =head1 VERSION
 
-Version 0.01
+Version 0.02
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 SYNOPSYS
 
@@ -211,6 +211,23 @@
 }
 
 
+=head2 _log
+
+Quick cludge to make logging object available to scripts which
+use webpac line this:
+
+  my $log = _new WebPAC::Common()->_get_logger();
+
+=cut
+
+sub _new {
+        my $class = shift;
+        my $self = {@_};
+	bless($self, $class);
+
+	$self ? return $self : return undef;
+}
+
 =head1 LOGGING
 
 Logging in WebPAC is performed by L<Log::Log4perl> with config file