Hi

continuing this discussion in German.

please look at this suggestion of "Programming Perl, 3rd Edition, Chapter 12.5" how to realize a private method: 

# An intriguing aspect of this behavior is that it can be 
# used to implement private method calls. If you put your 
# class in a module, you can make use of the file's lexical 
# scope for privacy. First, store an anonymous subroutine 
# in a file-scoped lexical:

    # declare private method
    my $secret_door = sub {
        my $self = shift;
        ...
    };

# Later on in the file, you can use that variable as though
# it held a method name. The closure  will be called directly,
# without regard to inheritance. As with any other method, 
# the invocant is passed as an extra argument.

    sub knock {
        my $self = shift;
        if ($self->{knocked}++ > 5) {
            $self->$secret_door(); # ***
        }
    }

[download]

this stupified me... at *** , the RHS of -> is a coderef

OK, looking at perlop reveals 

Otherwise, the right side is a method name or a simple scalar variable
containing either the method name or a subroutine reference, and the 
left side must be either an object (a blessed reference) or a class name 
(that is, a package name). See perlobj.

but seeking thru perlobj doesn't give me any more infos!

does anybody have a link to a perldoc with a complete definition of this magic behaviour?

Or: What should exactly happen when the RHS of -> is a coderef???

In this example, what is the difference to &$secret_door() except that $self is passed as first parameter? Is there any other difference?

I'm sure this has been discussed before but supersearch didn't help me find any clue...

Cheers Rolf

In reply to OOP: Obj->Coderef for calling Private Methods by LanX

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.