Restrict debugger workaround to when DB::sub will be used

[p5sagit/namespace-clean.git] / t / lib / Devel / _NC_TEST_DashD.pm

diff --git a/t/lib/Devel/_NC_TEST_DashD.pm b/t/lib/Devel/_NC_TEST_DashD.pm
new file mode 100644 (file)
index 0000000..0a61aca
--- /dev/null
+++ b/t/lib/Devel/_NC_TEST_DashD.pm
@@ -0,0 +1,9 @@
+package Devel::_NC_TEST_DashD;
+
+use warnings;
+use strict;
+
+sub DB::DB { 1 }
+
+1;
+