Re^2: Objects and references

Ok, that makes sense! But all this can be solved if you do:

package PackageName ;
sub new {
      $class = shift ;
     return bless {}, PackageName ;
}
[download]

This way you don't care if $class is a reference or not!
Luca

Comment on Re^2: Objects and references Download Code

Replies are listed 'Best First'.
Re^3: Objects and references by dragonchild (Archbishop) on Sep 30, 2005 at 20:31 UTC
This way you don't care if $class is a reference or not! And you don't allow people to subclass your class. Plus, if you're going to do that, do it right: `sub new { return bless {}, __PACKAGE__; }` [download] My criteria for good software: Does it work? Can someone else come in, make a change, and be reasonably certain no bugs were introduced?	[reply] [d/l]
Re^4: Objects and references by jeanluca (Deacon) on Sep 30, 2005 at 20:40 UTC
Thanks for your comments!!!! Can you also give an example (or link) that demontrates the usage of subclasses. Luca	[reply]
Re^5: Objects and references by dragonchild (Archbishop) on Oct 01, 2005 at 01:05 UTC
`package Foo; sub new { my $class = shift; return bless {}, $class; } package Foo::Bar; use base 'Foo'; package main; use Foo::Bar; my $foobar = Foo::Bar->new;` [download] Because there isn't a new() method in the Foo::Bar class, it will use the new() method in its parent class, which is Foo. Because Foo's new() method uses the $class that was passed into new() (which is Foo::Bar), it will DWIM. My criteria for good software: Does it work? Can someone else come in, make a change, and be reasonably certain no bugs were introduced?	[reply] [d/l]