sub jil { my ($self) = @_; my $outstr = $self->_jilout('insert_job') . $self->_jilout('job_type'); $outstr .= $_ foreach (map $self->_jilout($_), @{%$self}{@{$self->{_fields_in_seq}}}); $outstr; } sub _jilout { my ($self,$attr) = @_; return '' if !exists($self->{$attr}) || !defined$self->{$attr}; "$attr: ".$self->{$attr}."\n"; }