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;

##</code><code>##

#!/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();