Dear monks,

I want to write a very flexible and secure constructor (some people that only have little knowledge about perl will have to use this module). I just played around a bit, and the result was the attached testcode (I just used a blessed pseudohash to keep this example as easy as possible).

How would you do it? Are there better ways? 

package Pseudo;
# ---------------------------------------------------------
sub new {
  my ($proto) = shift;

  unless (defined $proto){
    die "ERROR: 'new' must be called as a class- or object-method\n";
  }

  my $self = [{}];

  if (ref $proto){ # call cloning constructor if needed
    return $proto->clone();
  } # if

  else { # normal constructor; don't copy data
    bless ($self, $proto);
  } # else

  return ($self);
} # new
# ---------------------------------------------------------
sub clone {
  my ($proto) = shift;

  if (__PACKAGE__ eq ref $proto){
    my $self = [{}];
    bless ($self, ref $proto);

    foreach (keys %$proto){ # copy keys, but not values
      $self->AddKey($_);
    } # foreach

    return ($self);
  } # if

  else {
    die "ERROR: 'clone' must be called as an object method\n";
  } # else

} # clone
# ---------------------------------------------------------
sub AddKey {
  my ($self, $key) = @_;

  if (exists $self->[0]->{$key}){
    $DEBUG and warn "WARNING: Key $key already existing\n";
    $self->{$key} = undef; # clear field
  } # if

  else {
    my $nextFreeIndex = scalar( keys %{ $self->[0] } ) + 1;
    $self->[0]->{$key} = $nextFreeIndex; # add key
#   $self->[$nextFreeIndex] = undef;
  } # else

  return $self;
} # AddKey

[download]

Thank you in advance!

Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"

In reply to Secure and still flexible OOP-constructor by strat

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.