# New Ticket Created by David Warring
# Please include the string: [perl #131122]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=131122 >
Consider
class C {
has uint8 $.ff;
}
my $c = C.new(ff => 255);
say $c.perl;
say $c.ff;
class C2 is repr('CStruct') {
has uint8 $.ff is rw;
}
my $c2 = C2.new;
$c2.ff = 200;
say $c2.ff;
Produces
C.new(ff => -1)
-1
-56
Both classes produce signed results, for the 'ff' attribute, declared as uint8.
david@X346:~$ perl6 -v
This is Rakudo version 2017.03-174-gd793e21 built on MoarVM version
2017.03-98-g9653dc6
implementing Perl 6.c.
