We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 21f9cd3 commit 59ce8bbCopy full SHA for 59ce8bb
S12-methods/lvalue.t
@@ -9,11 +9,11 @@ class T {
9
has $.a;
10
has $.b;
11
method l1 is rw {
12
- return $.a;
+ return-rw $!a;
13
}
14
15
method l2 is rw {
16
- $.b;
+ $!b;
17
18
19
@@ -45,9 +45,9 @@ lives_ok { temp $o.l2 = 9; $b = $o.b },
45
is $o.l2, 4, '... and the value was reset';
46
#?niecza todo
47
#?pugs todo
48
-is $o.b, 3, '... also on the attribute';
+is $o.b, 4, '... also on the attribute';
49
50
51
-is $a, 9, 'but the temp assignment had worked';
+is $b, 9, 'but the temp assignment had worked';
52
53
# vim: ft=perl6
0 commit comments