Help for this page
sub new { my ($class, @args) = @_; ... # then initialize the parts of the object that are unique to this +class return bless($this, $class); # rebless to our class }
sub new { my ($class, %args) = @_; ... $$this{foo} = $args{foo}; return bless($this, $class); # rebless to our class }
package SomeSuperclass; sub new { ... $this->_init(@_); return $this; }
package SomeSubclass; use base SomeSuperclass; ... $this->SUPER::_init($bar, $baz); $$this{foo} = $foo; }
www.com | www.net | www.org
No recent polls found