[Omaha.pm] object -> object mappings

[Sean Baker]

Jay's trying to show off his mojo.  Other than not knowing what all the
three character attributes are, nothing....

Sean

-----Original Message-----
From: omaha-pm-bounces+pbaker=omnihotels.com at pm.org
[mailto:omaha-pm-bounces+pbaker=omnihotels.com at pm.org] On Behalf Of
Thompson, Kenn
Sent: Monday, August 28, 2006 3:32 PM
To: 'Perl Mongers of Omaha, Nebraska USA'
Subject: Re: [Omaha.pm] object -> object mappings

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


_______________________________________________
Omaha-pm mailing list
Omaha-pm at pm.org
http://mail.pm.org/mailman/listinfo/omaha-pm