[Omaha.pm] object -> object mappings

[Thompson, Kenn]

Ok, color me newb, but what's wrong with that?

-----Original Message-----


For all these attibutes fill one object from another...

   my $hdr = $self->get_HDR;
   foreach (qw( cty hrs aad ars gmt sct sga loc sff utt sqn typ pri )) {
      my $method1 = "set_" . uc($_);
      my $method2 = "get_hdr_$_";
      $hdr->$method1($pegasus_bout->$method2);
   }