# New Ticket Created by robert strahl # Please include the string: [perl #71454] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=71454 >
use v6; class Int is also { method prime() { return True; } } say "Testing 1..5"; for 1,2,3,4,5 { print "$_ is: "; if .prime { say "prime" } else { say "NOT prime" } } say ""; say "Testing 1..5, again"; for 1..5 { print "$_ is: "; if .prime { say "prime" } else { say "NOT prime" } }