From b2af005db21bd8fd068cb79b2ae700953128af2c Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Sun, 1 Jan 2012 18:29:30 -0600
Subject: Move PerlQt

---
 PerlTQt/lib/Qt/debug.pm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create 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
new file mode 100644
index 0000000..a0f4e19
--- /dev/null
+++ b/PerlTQt/lib/Qt/debug.pm
@@ -0,0 +1,36 @@
+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.1