Hi, I'm looking to make a general Utility library, that might be used in three separate ways: 


#(1) Via Object: (Does not use data from $self)
$self->myUtility(@params); 

#(2) Via Class: 
Utility->myUtility(@params);

#(3) Via Child Class: 
SomeOtherClass->myUtility(@params);

#(4) Via direct call to function (Not OOPic) 
myUtlity(@params);

[download]

Why is this ? Simply because it is a requirement by the team. I am looking for a short efficient code stub to put in the entrance of the function to allow the function to run in 'OOP mode' or 'Normal' run-of-the-mill vanilla mode

Things I've used till now:

sub myUtlity {

#1) Does not deal with case (2), expensive, unneeded stack change
shift if(blessed($[0]));

#2) Does not scale well to multiple params, does not handle a param li
+ke the value "0"
my ($self, $param) = @_; 
$param ||= $self; 

}

[download]

The basic requirements are stated above, with the addition of being small, quick, and generic for every possible function/param kind/number of parameters

---------- Update - Small fix due to typos, as some have noticed --------------

In reply to Perl OOP Function Entrance by Mano_Man

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.