RosettaCodeData/Task/Assertions/Perl-6/assertions-2.pl6

# with a (non-hygienic) macro
macro assert ($x) { "$x or die 'assertion failed: $x'" }
assert('$a == 42');