Select Code to Download

  DB<119> $a=0
 => 0
...
2
3
4

  DB<108> use warnings; ("a","b")
 => ("a", "b")

  DB<109> use warnings; scalar ("a","b")
Useless use of a constant (a) in void context at (eval 34)[multi_perl5
+db.pl:2279] line 1.

  DB<135> sub ctx {print wantarray ? 'list' : defined wantarray ? 'sca
+lar' : 'void'; return}

...
voidscalar
  DB<141> 1 while (ctx(),ctx())  # scalar (boolean) comma
voidscalar