From 795a0355a40293affc7164507e918440d4a828d6 Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Sun, 1 Jan 2012 18:43:39 -0600
Subject: Move Qt

---
 PerlTQt/lib/Qt/debug.pm | 36 ------------------------------------
 1 file changed, 36 deletions(-)
 delete mode 100644 PerlTQt/lib/Qt/debug.pm

(limited to 'PerlTQt/lib/Qt/debug.pm')

diff --git a/PerlTQt/lib/Qt/debug.pm b/PerlTQt/lib/Qt/debug.pm
deleted file mode 100644
index a0f4e19..0000000
--- a/PerlTQt/lib/Qt/debug.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-package TQt::debug;
-use TQt;
-
-our %channel = (
-    'ambiguous' => 0x01,
-    'autoload' => 0x02,
-    'calls' => 0x04,
-    'gc' => 0x08,
-    'virtual' => 0x10,
-    'verbose' => 0x20,
-    'all' => 0xffff
-);
-
-sub import {
-    shift;
-    my $db = (@_)? 0x0000 : (0x01|0x20);
-    my $usage = 0;
-    for my $ch(@_) {
-        if( exists $channel{$ch}) {
-             $db |= $channel{$ch};
-        } else {
-             warn "Unknown debugging channel: $ch\n";
-             $usage++;
-        }
-    }
-    TQt::_internal::setDebug($db);    
-    print "Available channels: \n\t".
-          join("\n\t", sort keys %channel).
-          "\n" if $usage;
-}
-
-sub unimport {
-    TQt::_internal::setDebug(0);    
-}
-
-1;
\ No newline at end of file
-- 
cgit v1.2.3