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