Help for this page

Select Code to Download

Select or download this

$ perl -wE'
   sub expensive_call { $_[0] == -1 ? undef : $_[0] }
...
0
1
2

Select or download this

$ perl -wE'
   sub expensive_call { $_[0] == -1 ? undef : $_[0] }
...
0
1
2