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

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

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

diff --git a/PerlQt/lib/Qt/debug.pm b/PerlQt/lib/Qt/debug.pm
deleted file mode 100644
index a0f4e19..0000000
--- a/PerlQt/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