in reply to Objects and references

I prefer to do something as such: 
use Scalar::Util qw( blessed );

sub new {
    my $class = shift;

    return $class->clone( @_ ) if blessed $class;

    # Continue on with constructor.
}

sub clone {
    my $self = shift;

    return $self->new( @_ ) unless blessed $self;

    # Continue on with cloner.
}

[download]

Otherwise, I document what my methods expect and laugh at the people who don't RTFM.

My criteria for good software:
  1. Does it work?
  2. Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

Replies are listed 'Best First'.
Re^2: Objects and references
by jeanluca (Deacon) on Sep 30, 2005 at 20:09 UTC
    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
[reply]
[d/l]
      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:
      1. Does it work?
      2. Can someone else come in, make a change, and be reasonably certain no bugs were introduced?
[reply]
[d/l]
        Thanks for your comments!!!!
        Can you also give an example (or link) that demontrates the usage of subclasses.

        Luca
[reply]

In Section Seekers of Perl Wisdom