X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=lib%2Fperl%2FLog.pm;h=bd97f6c5dbd6a41a06177fad01f45538b28c08e9;hb=c1b802af00ef118d1a5cedd8026971653d3755ac;hp=68b1d3724cb181c70623088c5776e117b67d2e6b;hpb=997658b144998f1ab23b8d2c64bdc3ca93bae2c0;p=libucw.git diff --git a/lib/perl/Log.pm b/lib/perl/Log.pm index 68b1d372..bd97f6c5 100644 --- a/lib/perl/Log.pm +++ b/lib/perl/Log.pm @@ -10,6 +10,13 @@ use lib 'lib/perl5'; use strict; use warnings; use POSIX; +use Exporter; + +our $version = 1.0; +our @ISA = qw(Exporter); +our @EXPORT = (); +our @EXPORT_OK = qw(Log Die); +our %EXPORT_TAGS = ( all => [qw(&Log &Die)]); my $Prog = (reverse split(/\//, $0))[0];