- or download this
D:\tmp>perl -c tst_b_xref.pl
tst_b_xref.pl syntax OK
...
push @{$lines},+{status => $row[0]}; #9
}
- or download this
tst_b_xref.pl (main) 2 (lexical) $ sth
+ intro
tst_b_xref.pl (main) 2 (lexical) $ lines
+ intro
...
tst_b_xref.pl (main) 9 (lexical) $ sth
+ used
tst_b_xref.pl (main) 9 (lexical) $ sth
+ subused
tst_b_xref.pl (main) 9 (lexical) @ row
+ intro
- or download this
$ cat /tmp/xref.out
tst_b_xref.pl (main) 2 (lexical) $ sth
+ intro
...
tst_b_xref.pl (main) 9 (lexical) $ sth
+ used
tst_b_xref.pl (main) 9 (lexical) $ sth
+ subused
tst_b_xref.pl (main) 9 (lexical) @ row
+ intro