http://www.perlmonks.org?node_id=317567


in reply to Re: Re: Often Overlooked OO Programming Guidelines
in thread Often Overlooked OO Programming Guidelines

Holding refs to subroutines seems like a perfectly good way to do private methods:

package Foo;
                                                                      
. . . 

my $fiddle = sub {
    my $self = shift;
    return map { scalar reverse $_ } @_;
};

sub wonk 
{
    my $self = shift;
    $self->$fiddle(@_);
}


package Bar;

sub wonk 
{
    my $self = shift;
    $self->$fiddle(@_);  # runtime error
}

[download]

The real problem is that Perl doesn't have a good way of denoting protected methods or attributes. I don't consider litering your code with $obj->isa( . . . ) or die; to be a good way.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

: () { :|:& };:

Note: All code is untested, unless otherwise stated

In Section Meditations