Re^3: This can't happen, can it?

Because can (in class form) does respect inheritance, while a fully specified function name (like foo::bar) does not respect inheritance. Look at the following reduced code:

package Parent;
sub foo { print "foo in parent(@_)\n"; };
sub bar { print "bar in parent(@_)\n"; };
package Child;
@ISA = qw(Parent);
sub foo { print "foo in child(@_)\n"; };
package main;

eval { Child::foo(); }; warn $@ if $@;
eval { Child->foo(); }; warn $@ if $@;
eval { Child::bar(); }; warn $@ if $@;
eval { Child->bar(); }; warn $@ if $@;
[download]

Comment on Re^3: This can't happen, can it? Select or Download Code

Replies are listed 'Best First'.
Re^4: This can't happen, can it? by henrylaxen (Novice) on Feb 21, 2006 at 17:39 UTC
Thank you Corion, that was very helpful. In the meantime I have also discovered the source of my confusion. I made the (wrong) assumption that simply saying `our @EXPORT = qw(function);` [download] means that Spiffy would export function into package two. Actually what I need to do is declare that package one is the base class package two, like this: `use one -base;` [download] The problem is that package two lives in the same file as package one, and this causes a compiler error. The whole thing can be resolved by adding: `import one;` [download] after the `@two::ISA = qw(one);` [download] Thus the final program, and its output is: #!/usr/bin/perl package one; use Class::Spiffy -base; our @EXPORT = qw(function); sub function { print "Function in package one\n" } package two; @two::ISA = qw(one); import one; print STDERR "Class::Spiffy version is ", $Class::Spiffy::VERSION, "\n +"; print STDERR "Can two function? ",two->can('function'), "\n"; function(); __END__ cd /home/henry/dev/ /usr/bin/perl -w /home/henry/dev/spiffy_bug.pl Class::Spiffy version is 0.15 Can two function? CODE(0x814b738) Function in package one Compilation finished at Tue Feb 21 10:37:35 [download] Thanks to all who have tried to be helpful in solving this mystery. Best wishes, Henry Laxen	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: This can't happen, can it?
by henrylaxen (Novice) on Feb 21, 2006 at 17:39 UTC

      our @EXPORT = qw(function);
[download]

      use one -base;
[download]

      import one;
[download]

      @two::ISA = qw(one);
[download]

#!/usr/bin/perl

package one;
use Class::Spiffy -base;
our @EXPORT = qw(function);
sub function { print "Function in package one\n" }

package two;
@two::ISA = qw(one);
import one;
print STDERR "Class::Spiffy version is ", $Class::Spiffy::VERSION, "\n
+";
print STDERR "Can two function? ",two->can('function'), "\n";
function();

__END__

cd /home/henry/dev/
/usr/bin/perl -w /home/henry/dev/spiffy_bug.pl 
Class::Spiffy version is 0.15
Can two function? CODE(0x814b738)
Function in package one

Compilation finished at Tue Feb 21 10:37:35
[download]

Thanks to all who have tried to be helpful in solving this mystery.
Best wishes,
Henry Laxen

[reply]
[d/l]
[select]