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