Select Code to Download

use warnings;
use strict;
...
warn "DEBUG = ",DEBUG,"\n";

print B::Deparse->new()->coderef2text(\&test);

DEBUG = 0
{
...
    my(@a) = 1..3;
    1 / @a;
}

Use of uninitialized value $_ in pattern match (m//) at ... line 27.
DEBUG = 1
...
    my(@a) = 1..3;
    dmp /#/, @a;
}