Select Code to Download

D:\tmp>more tst_b_xref2.pl
use strict;
...
while ( my @row =$sth->fetchrow) {    #:5 intro
    print "@row";                     #:6 used
}

D:\tmp>perl -MO=Xref,-r,-d,-DO tst_b_xref2.pl
OP (0x163e650) enter
...
BINOP (0x163e6f8) leaveloop
LISTOP (0x10fcd90) leave
tst_b_xref2.pl syntax OK

D:\tmp>perl -MO=Concise,-src tst_b_xref2.pl
n  <@> leave[1 ref] vKP/REFC ->(end)
...
9                          <0> padav[@row:5,8] l ->a                #:
+@row used
c                 <0> unstack v ->d
tst_b_xref2.pl syntax OK