[Bioperl-l] Added check

Elia Stupka elia@fugu-sg.org
Wed, 12 Jun 2002 15:33:27 +0800 (SGT)


> The Perl Cookbook talks about this in recipe 2.1 and says that it's not
> easy. They come up with a solution like yours.

$elia+$perl="love";
$elia+$perl+$perl->strong_typing(1)="love in heaven";

foreach my $year (@third_millenium){
   if ($perl{$year}->strong_typing) {
      print STDERR "FINALLY!\n";
   }
}

;)

Elia

-- 
********************************
* http://www.fugu-sg.org/~elia *
* tel:    +65 874 1467         *
* mobile: +65 90307613         *
* fax:    +65 777 0402         *
********************************