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