package Devel::Calls;

our $lastsub;

sub DB::DB {
    my( $p, $f, $l, $sub ) = caller(1);
    return if $lastsub and $sub eq $lastsub;
    printf STDERR "%s(%u): %s()\n",
        $f//'unknown', $l//'0', $sub//'unknown',
    $lastsub = $sub;
    return;
}

1;