sub Inc($self,$aIncBy > 0){ $self->{fValue}+=$aIncBy; ....}