It's possible to apply a callback to Concise to handle the logic with B::Concise::add_callback

Xref has all the logic to do that, it just needs tweaking.

Dave.

> Concise doesn't track line numbers,

I'm confused ...did you look at the output I provided?

This looks pretty much like the lexical order in the source which is needed to track variables and subs.

and the line numbers are available:

# 6:     print "@row";                                              #:
+line 6
-                    <;> ex-nextstate(main 7 tst_b_xref2.pl:6) v:*,&,x
+*,x&,x$,$
[download]

The -src option dumps the original source line just before every nextstate OP and the line number is available in tst_b_xref2.pl:6

Could you please provide an example code where this behaviour is broken in the B::Concise output and information is lost?

Probably I'm unaware of some Perl temporal magic ? ? ?

Cheers Rolf
_{(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}

This looks pretty much like the lexical order in the source which is needed to track variables and subs

I think that is the heart of your misapprehension. Concise doesn't output ops in source lexical order, apart from happenstance. As a trivial counterexample, this source:

unless ($var1) {
    $var2++;
}
else {
    $var3++;
}
[download]

gives:

perl -MO=Concise,-exec /tmp/p | grep var

3  <#> gvsv[*var1] s
7      <#> gvsv[*var3] s
d  <#> gvsv[*var2] s
[download]

Note that var3 comes before var2.

Dave.