t/fixtures.pl

   1 use strictures 1;
   2 # disable the "Useless use of anonymous list ([]) in void context"
   3 # warning so we can perl -c this file during development
   4 no warnings 'void';
   5 [
   6   data_structure =>
   7   {
   8     sv_undef => undef,
   9     sv_iv => 3,
  10     sv_nv => 4.2,
  11     sv_pv => "spoon",
  12     ref_scalar => \"foo\nbar",
  13     ref_array => [ 1, \undef, "73" ],
  14   }
  15 ],
  16 [
  17   cross_refs =>
  18     do {
  19       my ($x, $y, $z) = (\1, { two => 2 }, [ three => 3 ]);
  20       +{
  21         one => $x,
  22         two => $y,
  23         three => $z,
  24         inner => {
  25           one => $x,
  26         },
  27         inner2 => [
  28           three => $z,
  29         ]
  30       };
  31     }
  32 ],
  33 do { sub DDXSTest::foo { 'DDXSTest::foo' } () },
  34 [
  35   global_sub => { foo => \&DDXSTest::foo }
  36 ];