sub plusDelta( my( $self, $delta ) = @_; return bless \( $self += $delta ), __PACKAGE__; }