Re: list all subs in a package

I found two bugs. Given

{
   package TestA;
   sub foo {}
   sub bar;
   sub baz() { time }
   sub moo {}
}

{
   package TestB;
   our @ISA = 'TestA';
   our $bar = 1;
}

use Data::Dumper;
print Dumper get_coderefs_href $_ for qw( TestA TestB );
[download]

baz isn't listed as a TestA sub (false negative).
bar is listed as a TestB sub (false positive).

bar shows that stubs are listed. That's fine — I'd even say it's a good thing — but it's worth documenting.

Comment on Re: list all subs in a package Select or Download Code

Replies are listed 'Best First'.
Re^2: list all subs in a package by sflitman (Hermit) on Jan 02, 2009 at 02:04 UTC
Thank you. I think baz isn't listed by design because it is a constant function with a length zero prototype. If the lines `my $proto...` and `next if defined` are commented out, baz is listed. bar should be listed, even though it is a stub, since its symbol table glob will have something in its CODE slot, and then package TestB inherits a glob *bar which gets vivified by inheritance (is that right?) when you mention `our $bar` SSF	[reply] [d/l] [select]
Re^3: list all subs in a package by ikegami (Patriarch) on Jan 02, 2009 at 02:56 UTC
I think baz isn't listed by design because it is a constant function with a length zero prototype. It's not. It has a length zero prototype, but it's not constant. The intent of the code is to remove constants since someone listing the subs in a package probably doesn't consider them to be subs. But there's no doubt that they would consider `baz` to be a sub. It should be listed. bar should be listed Depending on the purpose of the function, either both `foo` and `bar` should be listed or neither should be listed. It doesn't make sense to list one (`foo`) and not the other (`bar`). Turns out `foo` does get listed as part of TestB some of the time. If it hasn't been called yet, it won't show in TestB. If it has been called via TestB, it'll show in TestB. That doesn't make sense either. Either `foo` is a subroutine or method of TestB or its not. That's not dependent on whether it's been called or not.	[reply] [d/l] [select]
Re^4: list all subs in a package by sflitman (Hermit) on Jan 02, 2009 at 09:55 UTC
That's interesting. How would I detect a non-constant sub with length zero prototype? Or, more generally, how would I distinguish between a true constant function and a function like baz?	[reply]
Re^5: list all subs in a package by ikegami (Patriarch) on Jan 02, 2009 at 10:26 UTC