sub entity2 { $_[0]->{entity2}=$_[1] if defined $_[1]; $_[0]->{entity2} } sub IxnCount { $_[0]->{IxnCount}=$_[1] if defined $_[1]; $_[0]->{IxnCount} }