4a1aaf3
1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/env perl use strict; use warnings; use Test::More; ok(1 ~~ 1); { use smartmatch sub { 0 }; ok(!(1 ~~ 1)); } ok(1 ~~ 1); done_testing;