Mercurial > pub > Impl

comparison Lib/IMPL.pm @ 163:6ce1f052b90a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
temp commit
author wizard
date Tue, 15 Mar 2011 02:32:42 +0300
parents c2aa10fbb396
children d1676be8afcc
comparison
equal deleted inserted replaced
162:39c8788eded5 163:6ce1f052b90a
1 package IMPL; 1 package IMPL;
2 use strict; 2 use strict;
3 3
4 use Exporter; 4 use IMPL::_core qw(setDebug);
5 our @EXPORT_OK = qw( &Debug ); 5 use IMPL::_core::version;
6 6
7 our $Debug = 1 unless defined $Debug; 7 sub import {
8 8 my ($opts) = @_;
9 sub Debug() { 9
10 $Debug 10 if (ref $opts eq 'HASH') {
11 setDebug($$opts{Debug}) if exists $$opts{Debug};
12 }
11 } 13 }
12 14
13 1; 15 1;