sub copy {
	my $self = shift;
	my $new = __SUPER__->init($self->new($self));
	return $new;
}