1#!perl -w 2 3print "1..1\n"; 4 5use Data::Dump; 6 7$a = { 8 a => qr/Foo/, 9 b => qr,abc/,is, 10 c => qr/ foo /x, 11 d => qr/foo/msix, 12 e => qr//, 13 f => qr/ 14 # hi there 15 how do this look 16 /x, 17 g => qr,///////,, 18 h => qr*/|,:*, 19 i => qr*/|,:#*, 20}; 21 22print "not " unless Data::Dump::dump($a) . "\n" eq <<'EOT'; print "ok 1\n"; 23{ 24 a => qr/Foo/, 25 b => qr|abc/|si, 26 c => qr/ foo /x, 27 d => qr/foo/msix, 28 e => qr//, 29 f => qr/ 30 # hi there 31 how do this look 32 /x, 33 g => qr|///////|, 34 h => qr#/|,:#, 35 i => qr/\/|,:#/, 36} 37EOT 38 39#print Data::Dump::dump($a), "\n"; 40