The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

INGY / assign-0.0.17 / t / 01-basic-forms.t 

            

              
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

              
use assign::Test;
# Array destructuring:
test <<'...', "Unpack aref into 'my' vars";
my [ $a, $b, $c ] = $aref;
+++
my ($a, $b, $c);
$a = $aref->[0];
$b = $aref->[1];
$c = $aref->[2];
#line 1
...
test <<'...', "Multi-line declaration";
my [
    $a,
    $b,
    $c,
]
    = $aref;
print $b;
+++
my ($a, $b, $c);
$a = $aref->[0];
$b = $aref->[1];
$c = $aref->[2];
#line 7
print $b;
...
test <<'...', "Unpack a literal aref";
my [ $a, $b, $c ] = [111, 222, 333];
+++
my $_1 = [111, 222, 333];
my ($a, $b, $c);
$a = $_1->[0];
$b = $_1->[1];
$c = $_1->[2];
#line 1
...
test <<'...', "Unpack aref into 'our' vars";
our [ $a, $b, $c ] = $aref;
+++
our ($a, $b, $c);
$a = $aref->[0];
$b = $aref->[1];
$c = $aref->[2];
#line 1
...
test <<'...', "Unpack aref into 'local' vars";
local [ $a, $b, $c ] = $aref;
+++
local ($a, $b, $c);
$a = $aref->[0];
$b = $aref->[1];
$c = $aref->[2];
#line 1
...
test <<'...', "Unpack aref into differently declared vars";
my $a; our $b; local $c;
[ $a, $b, $c, $d ] = $aref;
+++
my $a; our $b; local $c;
$a = $aref->[0];
$b = $aref->[1];
$c = $aref->[2];
$d = $aref->[3];
#line 2
...
# Hash destructuring:
test <<'...', "Unpack href into 'my' vars";
my { $a, $b, $c } = $href;
+++
my ($a, $b, $c);
$a = $href->{a};
$b = $href->{b};
$c = $href->{c};
#line 1
...
test <<'...', "Unpack literal href into 'my' vars";
my { $a, $b, $c } = {a => 111, b => 222, c => 333};
+++
my $_1 = {a => 111, b => 222, c => 333};
my ($a, $b, $c);
$a = $_1->{a};
$b = $_1->{b};
$c = $_1->{c};
#line 1
...