in reply to Re^2: Overriding 'static' methods of a perl package
in thread Overriding 'static' methods of a perl package

"You can't get there from here".

Unless you use "object notation", and call your methods with a class or object instance, no inheritance will work.

You could fake the stuff you want by trying AUTOLOAD trickery but down that road lies so much sorrow I won't even tell you how to do it.

So you'll have to change Parent and Child in the way I outlined above.

Replies are listed 'Best First'.
Re^4: Overriding 'static' methods of a perl package
by Anonymous Monk on Sep 16, 2008 at 15:18 UTC
    Ok.

    The line 'use parent -norequire => "Parent"' generates a compilation error.

    I guess I'm still dragging too much Java baggage along with me. In my 'real life' implementation of this idea, the 'Parent' package contains an elaborate routine that calls a number of supporting subroutines to control its operation. The idea was to override the supporting subroutines to create new behaviors.

    I was trying to avoid making it truly OO as there was only one use of the class after it was created.

[reply]

      As you keep the exact text of "compilation error" to yourself, I won't be able to help you with that. The most likely reason is that parent.pm is not installed on your machine. You could try the substitute base.pm that is distributed with older versions of Perl.

      I can only iterate it again. If you want to use features such as "inheritance", you'll have to use the object syntax everywhere.

      Of course, for customizing the behaviour of the One Big Subroutine, it's likely easier to pass it a callback and in its absence to use a default routine:

      package Parent;

sub name { return 'Parent' };
sub identify {
    my (%options) = @_;
    $options{ get_name } ||= \&name;

    print "Hello " . $options{ get_name }->() . "\n";
};

package Child;

sub identify {
    Parent::identify( get_name => sub { 'Child' });
};

1;

      [download]
[reply]
[d/l]
        DOH! (mental head slap)

        I didn't even think of that. I was so fixated on making 'inheritance' work the way I wanted to, I missed the big picture.

        The 'compliation error' was the fact that parent.pm was not installed on the system. Do you consider 5.8.5 'old'?

        Thanks for all your help and the excellent suggestion.

[reply]

In Section Seekers of Perl Wisdom