Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^4: B::Xref buggy?

by LanX (Archbishop)
on Nov 15, 2018 at 15:18 UTC ( #1225863=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    D:\tmp>more tst_b_xref2.pl
    use strict;
    ...
    while ( my @row =$sth->fetchrow) {    #:5 intro
        print "@row";                     #:6 used
    }
    
  2. or download this
    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
    
  3. or download this
    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
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1225863]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (11)
As of 2019-06-18 12:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Is there a future for codeless software?



    Results (81 votes). Check out past polls.

    Notices?
    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!