1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
use FindBin '$Bin';
use lib $Bin;
use TestYAMLTests tests => 2;
no warnings 'once';
$main::G1 = "Hello";
is Dump(*G1), <<'...', "Dump a scalar glob";
--- !!perl/glob
NAME: G1
PACKAGE: main
SCALAR: Hello
...
eval '@main::G1 = (1..3)';
is Dump(*G1), <<'...', "Add an array to the glob";
--- !!perl/glob
ARRAY:
- 1
- 2
- 3
NAME: G1
PACKAGE: main
SCALAR: Hello
...
exit;
eval '@main::G1 = (1..3)';
my $g = *G1;
is Dump(\$g), <<'...', "Ref to glob";
--- !!perl/ref
=: !!perl/glob
...
my $array = [\$g, \$g, \*G1];
is Dump($array), <<'...', "Globs and aliases";
---
- &1 !!perl/glob
ARRAY:
- 1
- 2
- 3
NAME: G1
PACKAGE: main
SCALAR: Hello
- *1
...
|
