Select Code to Download

D:\tmp>type tst_b_xref3.pl
unless ($var1) {
...
else {
    $var3++;
}

D:\tmp>perl -MO=Concise,-src tst_b_xref3.pl|find "var"
tst_b_xref3.pl syntax OK
...
7                    <#> gvsv[*var3] s ->8
# 2:     $var2++;
d                    <#> gvsv[*var2] s ->e

$ perl -MO=Concise,-src tst_b_xref3.pl|grep var
tst_b_xref3.pl syntax OK
...
8                    <#> gvsv[*var2] s ->9
# 5:     $var3++;
e                    <#> gvsv[*var3] s ->f

D:\tmp>perl -MO=Deparse tst_b_xref3.pl
tst_b_xref3.pl syntax OK
...
else {
    ++$var2;
}