foreach my $key (@PARAMS) { $self->{$key} = $params{$key} || '' } #### $self->{$key} = defined $params{$key} ? $params{$key} : ''; #### $self->{$key} = $params{$key} // ''; #### return $self->new( %{$data->{Invoices}[0]} ) if ( ref($data->{Invoices}) eq 'ARRAY' and scalar(@{$data->{Invoices}})==1 );