Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: inheritance: constructors

by djantzen (Priest)
on Jun 24, 2002 at 23:22 UTC ( #176984=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    sub new {
      my ($class, @args) = @_;
        # then initialize the parts of the object that are unique to this 
        return bless($this, $class); # rebless to our class
  2. or download this
    sub new {
      my ($class, %args) = @_;
      $$this{foo} = $args{foo};
      return bless($this, $class); # rebless to our class
  3. or download this
    package SomeSuperclass;
    sub new {
         return $this;
  4. or download this
    package SomeSubclass;
    use base SomeSuperclass;
      $this->SUPER::_init($bar, $baz);
      $$this{foo} = $foo;

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2016-10-26 05:14 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (334 votes). Check out past polls.