package Fruit;

use strict;

# Constructor
sub init
{
  printf "Fruit constructor init called\n";
  my $class=shift;
  my $self={};
  ${self}->{'id'}=0;
  bless $self, $class;
}

# Print the object.
sub printing
{
  printf "*Fruit object\n";
}
 
# Destructor
sub DESTROY
{
  printf "Fruit descructor called\n";
}

1;