Distinguish method/function call during debugger?

diotalevi has asked for the wisdom of the Perl Monks concerning the following question:

I'm writing a small debugger for myself to generate Test::MockObject scripts. I'm able to trap method calls and function calls but I don't know how to distinguish between the two. Can any of you help?

BEGIN {
    $ENV{PERL5DB} = '';
    $^P = 0x01; # Debug subroutine enter/exit.
}

$obj = bless do { \ my $x }, "Deb";
$obj->meth;
Deb::func( $obj );

sub Deb::meth { }
sub Deb::func { }

package DB;
sub sub {
    print "$sub( " . join( ', ', @_ ) . " )\n";
}
[download]

Results in:

Deb::meth( Deb=SCALAR(0x97f3c4c) )
Deb::func( Deb=SCALAR(0x97f3c4c) )
[download]

Comment on Distinguish method/function call during debugger? Select or Download Code

Replies are listed 'Best First'.
Re: Distinguish method/function call during debugger? by ikegami (Patriarch) on Feb 23, 2006 at 17:12 UTC
Is it even possible? What about `sub Deb::func { print("Deb!\n"); } $obj = bless {}, 'Bar'; $obj->Deb::func();` [download] and even `sub Foo::func { print("Foo!\n"); } @Deb::ISA = 'Foo'; $obj = bless {}, 'Bar'; $obj->Deb::func();` [download]	[reply] [d/l] [select]
Re^2: Distinguish method/function call during debugger? by diotalevi (Canon) on Feb 23, 2006 at 17:13 UTC
Yeah, I don't actually expect to see that one in practice. Not with the code i'm instrumenting. If you want to go to that level, then there's also `$obj->$code_ref` and `$obj->$string`. ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊	[reply] [d/l] [select]
Re^3: Distinguish method/function call during debugger? by ikegami (Patriarch) on Feb 23, 2006 at 17:17 UTC
My point was that Perl has so many call syntaxes that I doubt it knows how a function was called. By the way, I'm suprised you don't use it. In just about every inheriting class I write, I use `$class->SUPER::new()`.	[reply] [d/l]
Re^4: Distinguish method/function call during debugger? by diotalevi (Canon) on Feb 23, 2006 at 17:21 UTC
Re^5: Distinguish method/function call during debugger? by ikegami (Patriarch) on Feb 23, 2006 at 17:59 UTC
Re: Distinguish method/function call during debugger? by adrianh (Chancellor) on Feb 24, 2006 at 11:23 UTC
I'm able to trap method calls and function calls but I don't know how to distinguish between the two. Can any of you help? See `called_as_method` in Devel::Caller.	[reply] [d/l]
Re^2: Distinguish method/function call during debugger? by diotalevi (Canon) on Feb 24, 2006 at 19:22 UTC
Thanks! It turns out that Devel::Caller doesn't work for perl-5.8.4+ but it's the right idea. ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊	[reply]
Re^3: Distinguish method/function call during debugger? by adrianh (Chancellor) on Feb 27, 2006 at 01:32 UTC
Thanks Y'welcome It turns out that Devel::Caller doesn't work for perl-5.8.4+ Ah. Bugger :-/	[reply]