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
|
## name Basic passing
## failures 0
## cut
my $a = shift;
my ($b, $c) = (shift, shift);
my $d = shift();
my $e = shift @ARGV;
my $f = shift(@ARGV);
my $g = shift @_;
my @h = (shift @_);
shift;
{ shift() }
#-----------------------------------------------------------------------------
## name Basic failure
## failures 4
## cut
my $a = \shift;
my $b = \ shift;
my ($c1, $c2) = (shift, \shift);
my ($d1, @d2) = (\shift, @_);
#-----------------------------------------------------------------------------
## name Named array failure
## failures 4
## cut
my $a = \shift @ARGV;
my $b = \shift(@ARGV);
my $c = \shift @_;
my $d = (\shift @_);
#-----------------------------------------------------------------------------
## name Structure failure
## failures 2
## cut
my $a = \{ shift() };
my $b = \{shift};
#-----------------------------------------------------------------------------
## name Tricksy, but passing
## failures 0
## cut
my $a = \(shift);
my $b = \(shift());
my $c = \(shift @ARGV);
my $d = \(shift(@_));
my $e = \(0, shift);
#-----------------------------------------------------------------------------
|
