I, for whatever reason, have two implementations of a Perl module, and
I want to compare them programmatically. I thought it would be easy
enough to get the methods of the object with code similar to this:
my $o = MyObject->new();
foreach $method (sort(keys(%$o))){
debug("method = $method\n");
if (ref($o->{$method}) eq "CODE"){
print("method $method found\n");
}
}
But this does not work, as it only prints out the attributes (i.e. the
non-code members) of the object, even in the debug() call (which, if I
defined it here, would just be a subroutine that calls print with its
args and potentially some other info).
Is there a way to do this *in code* *in Perl*?
Thanks
--
Derek D. Martin http://www.pizzashack.org/ GPG Key ID: 0xDFBEAD02
-=-=-=-=-
This message is posted from an invalid address. Replying to it will result in
undeliverable mail due to spam prevention. Sorry for the inconvenience.
_______________________________________________
Discuss mailing list
[email protected]
http://lists.blu.org/mailman/listinfo/discuss
