Select Code to Download

$ perl -wle'print 0 + sub { my @v; !!@v }->()'
0
...
$ perl -wle'print 0 + sub { my @v; @v ? 1 : "" }->()'
Argument "" isn't numeric in addition (+) at -e line 1.
0

$ perl -wle'print "" . sub { my @v; !!@v }->()'


$ perl -wle'print "" . sub { my @v; @v ? 1 : 0 }->()'
0