[Omaha.pm] object -> object mappings

[Jay Hannah]

This made me laugh today. Code I wrote.

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);
   }

j