use strict;
use warnings;

sub foo {
  1;
}

print foo, "\n";

##</code><code>##

  bless $self, $class;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

    return bless ($self, $class);

##</code><code>##

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

##</code><code>##

    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);