+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 =>
{
]
};
}
-]
+],
+do { sub DDXSTest::foo { 'DDXSTest::foo' } () },
+[
+ global_sub => { foo => \&DDXSTest::foo }
+];