[Perl 6] smart comparison operators

(3 cmp 5) ~~ Less or die "Wrong condition";
("Perl" cmp "Perl") ~~ Same or die "Wrong condition";
("Ruby" cmp "Perl") ~~ More or die "Wrong condition";