# (c) 2007 Pavel Charvat <pchar@ucw.cz>
#
-package Sherlock::Log;
+package UCW::Log;
use lib 'lib/perl5';
use strict;
use warnings;
use POSIX;
+use Exporter;
+
+our $version = 1.0;
+our @ISA = qw(Exporter);
+our @EXPORT = ();
+our %EXPORT_TAGS = ( all => [qw(&Log &Die)]);
+our @EXPORT_OK = (@{$EXPORT_TAGS{'all'}});
my $Prog = (reverse split(/\//, $0))[0];