package MyPackage;

sub new {
   my ($class) = shift();
   my $self = {};
   return bless $self, $class;
}

sub half {
   my $self   = shift();
   my $number = shift();
   return $number / 2;
}

1;