--- a/Lib/IMPL.pm	Wed Dec 29 16:55:24 2010 +0300
+++ b/Lib/IMPL.pm	Tue Mar 15 02:32:42 2011 +0300
@@ -1,13 +1,15 @@
 package IMPL;
 use strict;
 
-use Exporter;
-our @EXPORT_OK = qw( &Debug );
+use IMPL::_core qw(setDebug);
+use IMPL::_core::version;
 
-our $Debug = 1 unless defined $Debug;
-
-sub Debug() {
-	$Debug
+sub import {
+	my ($opts) = @_;
+	
+	if (ref $opts eq 'HASH') {
+		setDebug($$opts{Debug}) if exists $$opts{Debug};
+	}
 }
 
 1;
\ No newline at end of file