# 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

Reply via email to