# New Ticket Created by
# Please include the string: [perl #126018]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=126018 >
$ cat golf.p6
class A
{
has $.integer where * > 0;
has %!hash;
method meth {
my $a = 0;
my $b = $a / $!integer;
my $c = $a ?? 100 * ($a - +%!hash) / $a !! 0;
}
}
A.new(integer => 7).meth;
$ perl6 golf.p6
===SORRY!===
Cannot invoke this object (REPR: Null, cs = 0)
$ perl6 --version
This is perl6 version 2015.07.1-756-g16d366a built on MoarVM version
2015.07-108-g7e9f29e