Select Code to Download

use Modern::Perl;

...
    when(int) { say 'match' } # int($_) ~~ $x
    default { say 'no match' }
}

use Modern::Perl;

...
    when($_) { say 'match' } # $_ ~~ $x
    default { say 'no match' }
}

use Modern::Perl;
use warnings;
...
        say 'no match';
    }
}