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