Can't call NEXT::f from B::g

[Victor Porton]

$ perl test.pl
Can't call NEXT::f from B::g at /home/porton/t/test2.pl line 10

Why the error?

#!/usr/bin/perl -w

use NEXT;

package A;
sub f { print "123\n" }

package B;
use base 'A';
sub g { shift->NEXT::f }

B->g;

 

[Peter Makholm]

$ perl test.pl
Can't call NEXT::f from B::g at /home/porton/t/test2.pl line 10

Why the error?

Doesn't the following except from the documentation to NEXT explains
it?

Note that it is a fatal error for any method (including "AUTOLOAD") to
attempt to redispatch any method that does not have the same name. For
example:

sub D:ops { print "oops!\n"; $_[0]->NEXT:ther_method() }

//Makholm

 

[Victor Porton]

$ perl test.pl
Can't call NEXT::f from B::g at /home/porton/t/test2.pl line 10

Why the error?

Doesn't the following except from the documentation to NEXT explains
it?

Note that it is a fatal error for any method (including "AUTOLOAD") to
attempt to redispatch any method that does not have the same name. For
example:

sub D:ops { print "oops!\n"; $_[0]->NEXT:ther_method() }

Yes, that was my error.

New question: Why the below script does not print "123"?

#!/usr/bin/perl -w

use NEXT;

package A;
sub f { print "123\n" }

package B;
use base 'A';

package C;
use base 'B';
sub f { shift->NEXT::f }

C->f;

 

[Michele Dondi]

package A;
sub f { print "123\n" }

package B;
use base 'A';

Incidentally, base.pm does more than you expect. You may want to just
set @ISA manually in this case.

Moreover, base.pm is regarded as buggy by some.

Moreover, do not try to use B as a generic namespace, since it
actually exists. In fact when I stumbled upon your subject, I thought
it had to do with Perl's opcodes...


Michele