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


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