rockyb,

I've never used it, but '__LINE__' represents the current line number. Maybe you could use super search to find out more. I know I have seen references to its use on PM. I had hoped someone who had used it would pipe-in, but it is the weekend!

Good Luck

#!/usr/bin/perl -l

BEGIN {
    $|  = 1;
}

use autodie;
use common::sense;
use Opcode;
use Opcodes qw/ppaddr opdesc/;

my $ppaddr = &Opcodes::ppaddr(0);
print $ppaddr;

my $opdesc = &Opcodes::opdesc(0);
print $opdesc;
[download]

Thanks for the suggestion. I tried and it didn't work for me.

Here is something that sort of works but doesn't really.

In file /tmp/Devel/COP.pm:

package DB;
sub DB {
    ($pkg, $filename, $lineno) = caller;
    $COP = 0;
    local(*DB::dbline) = "::_<$DB::filename";
    if (defined $DB::dbline[$lineno]) {
        $COP = 0 + $DB::dbline[$lineno] ;
    }

};

1;
[download]

And to test it, put in file /tmp/code-test.pl:

#!/usr/bin/perl
use B::Concise;
sub testit ()
{
    my $walker = B::Concise::compile('-basic', '-src', 'testit');
    B::Concise::set_style_standard('debug');
    B::Concise::walk_output(\my $buf);
    $walker->();            # walks and renders into $buf;
    print $buf, "\n";
    printf "COP is 0%x\n", $DB::COP;

}

testit();
[download]

Now run as perl -I/tmp d:COP /tmp/code-test.pl
The problem is that the COP address is always the first statement for the line. And what I really want is the one we are currently at which might not be the first COP of the line. Sigh.

It is one way to identify a location with finer granularity than a line number.

I see. As I try to have only one instruction per line, I could not think of a good use for it.

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

My blog: Imperial Deltronics

The answer I am seeking is Devel::Callsite, and I am grateful to Father Chrysostomos for enlightening me.

As pointed out by Eric Brine on p5p, this module currently fails on non-threaded Perl builds, but with luck we can get that fixed.

Starting with commit db2e1bc I am using this in Devel::Trepan.

Again, thanks to all that have helped me in this journey.