Select Code to Download

use strict;
use warnings;
...
}

print foo, "\n";

  bless $self, $class;

  my $object = bless $self, $class;
  return $object;

    bless ($self,$class);
    return $self;

    return bless ($self, $class);

    my ($self,$class)=@_;

    my ($class, $self) = @_;
    # and add a check that we're not copying
    # for good measure
    die ("This isn't a copy constructor") if (ref $class);