map { $self->{$_} = $initdata{$_} } keys %initdata;

##</code><code>##

  %$self =  (%$self, %initdata);

##</code><code>##

   $self->{$_}=$initdata{$_} for keys %initdata;