the following part of your code has "class-factory" written all over it in big flashing red letters:

  # called with : mkBless(\$p->{Vcpeid}{$cpeid}, RepoVData->new);
  sub mkBless($;$) {
    my $targ = shift;
    if (@_) {
      ${$targ} = shift unless blessed $targ;
    }
    \$targ
  }

[download]

(btw i think you have errors in above code: shouldn't condition be: blessed $$targ and return $$targ ?)

Nothing fancy though:

  # notice @ params: contails optional class name and any optional par
+ams to new()
  sub mkBless($;@) {
    my $targ = shift;
    if (@_) {
      ${$targ} = shift->new(@_) unless blessed $$targ;
    }
    # you don't need to return anything, but if you must:
    $$targ; #\$targ
  }
# example call:
my $obj = mkBless(\$someotherobj, 'RepoVData', 1,2,3);

[download]

another observation: your code calls mkBless() with a newly created object which you discard if the 1st param is already blessed. That's a waste.

bw, bliako

In reply to Re: How to walk through convoluted data? by bliako
in thread How to walk through convoluted data? by perl-diddler

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.