#-----------------------------------------------
package Object;
#-----------------------------------------------

sub create {
  my ($pkg, $name, $weight) = @_;
  my $obj = bless {
    "name"    => $name,
    "weight"  => $weight,
    "created" => time,
  }, $pkg;
  return $obj;
}


#-----------------------------------------------
package objFood;
#-----------------------------------------------

@objFood::ISA = qw(Object);

sub new {
  my ($pkg, $name, $weight, $size, $life) = @_;
  my $obj = $pkg->create($name, $weight);
  $obj->{"size"} = $size;
  $obj->{"life"} = $life;
  return $obj;
}