sub half {
  my $number; 
  if (ref $_[0] eq __PACKAGE__) {
      my ( $self, $number ) = @_;
   } 
   # uncuddles elses are faster!
   else {
       $number = $_[0];
   }
   return $number / 2;
}

##</code><code>##

sub half {
  my $number; 
  if (ref $_[0]) {
      my ( $self, $number ) = @_;
   } 
   # uncuddles elses are faster!
   else {
       $number = $_[0];
   }
   return $number / 2;
}