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
|
## name Basic passes
## failures 0
## cut
%hash = %{ $some_ref };
@array = @{ $some_ref };
$scalar = ${ $some_ref };
$some_ref = \%hash;
$some_ref = \@array;
$some_ref = \$scalar;
$some_ref = \&code;
%hash = $some_ref->%*;
@array = $some_ref->@*;
$scalar = $some_ref->$*;
$glob = $some_ref->**;
$sub = $some_ref->&*;
$arr_i = $some_ref->$#*;
@array = $some_ref->@[0 .. 2];
%hash = $some_ref->%{qw/key1 key2/};
#-----------------------------------------------------------------------------
## name Basic failures
## failures 6
## cut
%hash = %$some_ref;
%array = @$some_ref;
%scalar = $$some_ref;
%hash = ( %$some_ref );
%array = ( @$some_ref );
%scalar = ( $$some_ref );
#-----------------------------------------------------------------------------
## name Multiplication is not a glob
# old PPI bug (fixed as of PPI v1.112): multiplication is mistakenly
# interpreted as a glob.
## failures 0
## cut
$value = $one*$two;
#-----------------------------------------------------------------------------
## name Multiplication, modulus, bit-and not cast
# old PPI bug (fixed as of PPI v1.222): operators classified as casts.
# See https://github.com/Perl-Critic/Perl-Critic/issues/604
## failures 0
## cut
$var = $hash{v}*$v;
$var = $hash{v} *$v;
$var = $hash{v}%$v;
$var = $hash{v} %$v;
$var = $hash{v}&$v;
$var = $hash{v} &$v;
#-----------------------------------------------------------------------------
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 78
# indent-tabs-mode: nil
# c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :
|
