global CV support

[p5sagit/Data-Dumper-ToXS.git] / t / fixtures.pl

diff --git a/t/fixtures.pl b/t/fixtures.pl
index 3884f4d..fbb6755 100644 (file)
--- a/t/fixtures.pl
+++ b/t/fixtures.pl
@@ -1,3 +1,7 @@
+use strictures 1;
+# disable the "Useless use of anonymous list ([]) in void context"
+# warning so we can perl -c this file during development
+no warnings 'void';
 [
   data_structure =>
   {
@@ -25,4 +29,8 @@
         ]
       };
     }
-]
+],
+do { sub DDXSTest::foo { 'DDXSTest::foo' } () },
+[
+  global_sub => { foo => \&DDXSTest::foo }
+];