Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
warn "DEBUG = ",DEBUG,"\n";

print B::Deparse->new()->coderef2text(\&test);
  2. or download this
    DEBUG = 0
{
...
    my(@a) = 1..3;
    1 / @a;
}
  3. or download this
    Use of uninitialized value $_ in pattern match (m//) at ... line 27.
DEBUG = 1
...
    my(@a) = 1..3;
    dmp /#/, @a;
}