Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^4: Questions from "Coders at Work"

by Porculus (Hermit)
on Oct 19, 2009 at 20:51 UTC ( [id://802087]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Questions from "Coders at Work"
in thread Questions from "Coders at Work"

Or lack direct applicability as we still didn't select a default OO style (minus - it's not helpful if a trivial one-line pattern requires 20 lines of interface glue to cope with both blessed hashes and blessed scalars).

What are you thinking of here? OO code in Perl shouldn't care whether an object is a blessed hash, a blessed scalar, a blessed nuisance, inside-out, upside-down, a Moose, a Mouse, or even a C pointer with a thin XS wrapper. You have an opaque reference. You call methods on it without worrying what it points to.

The only case I can immediately think of where this can legitimately fall down is when you inherit from someone else's object in a way that involves you trying to store additional private data inside their blessed data structure. But there are well-known ways to avoid that. And considering that code reuse through inheritance is a dodgy thing in the first place, the dodginess factor goes through the roof when you don't even control the code you're reusing!

Maybe there are other cases where well-written code can go wrong, but all I can say is that I've never yet encountered any problems in Perl that I could attribute to the lack of a single official method of implementing objects. I may well be missing something, but this seems to me to be one of those things that is more about Perl being conceptually messy, than about that messiness causing real problems in practice.

Replies are listed 'Best First'.
Re^5: Questions from "Coders at Work"
by jakobi (Pilgrim) on Oct 19, 2009 at 21:37 UTC

    Thanx for your reply to my wondering :), Porculus!

    > What are you thinking of here? ... You have an opaque reference.

    Right: The opaque reference is what this situation practically results in. And right, it's code reuse/code inheritance with method overriding and attribute access that's the sore point. And again correct, one should be quite certain that non-blackbox-use is what one actually wants to do. But this is one valid way of the ways of TIMTOWTDI in Perl.

    And considering that code reuse through inheritance is a dodgy thing in the first place, the dodginess factor goes through the roof when you don't even control the code you're reusing!

    There's indeed a line of thinking to limit inheritance to interfaces at most, and especially not code. But I think the field's larger than that, also allowing for e.g. a kind of 'friend'/greybox-inheritance relationship, provided friends are cautious enough and do not trample all over each other's "name space".

    There's also the question of the interface offered by an object, including the kind of get/set methods it permits. Maybe even direct access. Wouldn't it be nice to just use Data::Dumper and that were enough to have the object itself tell us its set/get methods? Some kind of default assumptions of 'usually you do it that way' would be nice. Then one'd just need to check the doc's pitfalls section listing possible non-default caveats and exceptions. Less things to remember is a good thing TM.

    It's probably mostly a question of trust, assumptions, convenience and code reduction when subclassing.

    If you just use objects, then it's at most the get/set attribute issue. When composing objects w/o inheritance, its also pretty harmless. For real code inheritance with method overriding I think the idea I liked best was to stuff the extra data in a closure. But when you subclass and override a method, you'll normally want to minimize the code replication. And this definitely gets more than ugly/dodgy or rather fat, when you need to treat everything as opaque black boxes.

    > more about Perl being conceptually messy, than about that messiness causing real problems in practice

    With one exception (<> in one-liners), I actually like the messiness and TIMTOWTDI (incl. freedom of choice for possible OO-styles) and wouldn't wish to reduce it.

    Just specifying a primus-inter-pares among the OO-ways already in Perl5 would have been nice: kind of "and this is the default set of oo-memes for Perl, divergences from it are documented" (substitute "Pattern" or "Pattern-Language" if you wish); but w/o disabling any of the alternatives, please.

    This is IMHO one point where just the lower age of Python & Ruby (and thus their different/bolder/newer approach to OO) is enough to turn into a major sellingpoint for this pair of youngsters.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://802087]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (5)
As of 2024-03-29 12:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found