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
|
class.c warnings from 'class' feature
__END__
# experimental warnings
use strict;
use feature 'class';
class C {
method m {}
}
EXPECT
class is experimental at - line 4.
method is experimental at - line 5.
########
# constructor warnings
use v5.36;
use feature 'class';
no warnings 'experimental::class';
class C { }
C->new();
eval { C->new('foo') }; # suppress error
EXPECT
Odd number of arguments passed to "C" constructor at - line 7.
########
# field shadowing warning
use v5.36;
use feature 'class';
no warnings 'experimental::class';
class C {
field $x;
field $x;
}
EXPECT
"field" variable $x masks earlier declaration in same scope at - line 7.
########
# odd number of elements in field init
use v5.36;
use feature 'class';
no warnings 'experimental::class';
class C {
field %h = (1, 2, 3);
}
C->new;
EXPECT
Odd number of elements in hash field initialization at - line 6.
|
