Examples

• 1.hello-world
• 2.variables
• 3.types
• 4.conditions
• 5.looping
• 6.subroutines
• 7.arrays
• 8.hashes
• 9.operators
• 10.classes
• 11.list-comprehension
• 12.junctions
• 13.pattern-match
• 14.whatever
• 15.twigil
• 16.set
• 17.feed
• 18.flip
• 19.signatures
• 20.io
• 21.enum
• 22.traits
• 23.gather-take
• 24.subset
• 25.sort
• 26.smartmatch
• 27.roles
• 28.multi-dispatch
• 29.meta-operators
• 30.aomtic
• 31.binding
• 32.classify
• 33.destructure
• 34.dbi
• 35.dynamic-variables
• 36.labels
• 37.main
• 38.operators
• 39.pod
• 40.regex
• 41.q
• 42.topic_variable
• 43.hyper_operator
• 44.colonpairs
• 45.grammar
• 46.datetime
• 47.comb
• 48.chained_comparison
• 49.unicode
• 50.when
• 51.with
• 52.rotor
• 53.series_operator
• 54.range
• 55.slip
• 56.react_whenever
• 57.introspection
• 58.promise
• 59.threads

## if, else, elsif, unless, etc. - testing for truthness
#------------------------------

# if
if True { say 'This will happen!'; }
say 'This will happen!' if True; # statement modifier syntax

# if/else
if False { say "This won't happen!";       }
else     { say "This will happen though!"; }

# if/elsif/else
if False   { say "This won't happen!";         }
elsif True { say "This will happen though!";   }
else       {   say "This could've happened!";  }

# unless - equivalent to `if !(condition) {}`
unless False { say "This will certainly happen"; }
say 'This will happen!' unless False; # statement modifier syntax

## with, orwith, without - testing for definedness
#-----------------------

# with - unlike `if` that tests for truthness, `with` tests for definedness
my $falsey = "";

with $falsey { say "This will print";  }
say "This will print" with $falsey; # statement modifier form

# orwith - similar to `elsif` but for definedness
with Nil { say "This won't print"; }
orwith 1 { say "This will print";  }

# without - similar to `unless` but for definedness
my $answer = Any;
without $answer { say "This will print!"; }
say "This will print even if " without $answer; # statement modifier form

## Numerical comparisons (==, !=, <=, >=, etc.)
##----------------------
my ($a, $b, $c) = (1, 2, 1);

say "$a is less than $b"                   if $a < $b;
say "$a is less than or equal to $b"       if $a <= $b;
say "$b is greater than $a"                if $b > $a;
say "$b is greater than or equal to $a"    if $b >= $a;
say "$a is equal to $c"                    if $a == $c;
say "$b is not equal to $c"                if $b != $c;

# chained comparison
say "$a is greater than 0 and less than 2" if 0 < $a < $b;

## String comparisons (eq, ne, gt, ge, lt, le, etc.)
##-------------------
my ($n1, $n2, $n3) = ('Sergey', 'Stanley', 'Marcus');

say "$n1 comes before $n2"     if $n1 lt $n2;
say "$n2 comes after $n1"      if $n2 gt $n1;
say "$n2 is not equal to $n1"  if $n2 ne $n1;

# chained comparison
say "$n1 comes after $n3 and before $n2" if $n3 lt $n1 lt $n2;

## Ternary operator (condition ?? opt1 !! opt2)
##-----------------
say $n2 eq 'Stanley' ?? "It's Stanley!" !! 'Not Stanley';

my $n = 7;
my $p = $n.is-prime ?? "Prime" !! "Composite";

say $p;

## Smart matching (~~)
##-------------------
say 'Hello Stanley' ~~ Str;  # Type Comparisons
say so 'Hello Bob' ~~ /Bob/; # Regular Expressions Matching

# Canonical Equivalence / Deep Equality (eqv)
say (1, 2) eqv (1, 3);