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