Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

comment on

( [id://3333]=superdoc: print w/replies, xml ) Need Help??
There is also a school of thought (in which I'm enrolled {grin}) that an object should also be a "valid" object upon instantiation, and that a caller should never be given a partially constructed object that has to be prodded a bit before it would be valid for the rest of the program.

Indeed. I've learned the hard way that approaches to OO that leave objects in an "I'm almost valid, really!" state are either asking for trouble now, or are investing in future trouble for the poor soul who picks up the code a year later, tries to extend it, and doesn't get the partial initialization exactly right.

Clients of an API should never--at least never in production code--be handed invalid objects with the expectation that the client will do the right thing to get the object into a valid state.

At the very least, this means that initialization parameters passed to new need to be honored.

  sub new {
      my $proto = shift;
      bless { @_ }, ref($proto) || $proto;
This suffices to create instances of some simple objects, but often times setup is a bit more complicated. One pattern from the Smalltalk world is to separate initialization from instantiation, using a generic method for the latter, and a method for the former that subclasses can override.

Using the pattern, the base class implements new (instantiation) and initialize (initialization).

sub new { my $proto = shift; my $self = bless { @_ }, ref($proto) || $proto; $self->initialize(); } sub initialize { my $self = shift; ... initialization for the base class ... }
Subclasses then specialize the initialization.
sub initialize { my $self = shift; # First initialize our inherited aspects $self->SUPER::initialize(); ... initialization specific to the subclass ... }
When I then create an instance of a subclass in this hierarchy, I get the generic new, followed by a pre-order invocation of initialize. I.e., first the object is initialized as if it is a member of the base class, and the initializations for subclasses happen in the order of refinement until I get down to the class I targeted. I end up with a fully initialized object.

Using this scheme, at least with the class of objects for which this type of initialization works, I'm guaranteed to get a valid object back from new.

In reply to (dws)Re: Re: simple OO constructor by dws
in thread simple OO constructor by galacticdruid

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, 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, 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.
  • Log In?

    What's my password?
    Create A New User
    Domain Nodelet?
    and the web crawler heard nothing...

    How do I use this?Last hourOther CB clients
    Other Users?
    Others goofing around in the Monastery: (5)
    As of 2024-07-13 04:19 GMT
    Find Nodes?
      Voting Booth?

      No recent polls found

      erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.