NAME

SPVM::EqualityChecker - a callback type to check the equality

SYNOPSYS

            

              
              
use SPVM::EqualityChecker;
my $equality_checker : SPVM::EqualityChecker = sub : int ($self : self, $obj1 : object, $obj2 : object) {
  my $point1 = (SPVM::Point)$obj1;
  my $point2 = (SPVM::Point)$obj2;
   
  if ($point1->x == $point2->x && $point1->y == $point2->y) {
    return 1;
  }
  else {
    return 0;
  }
};
my $point1 = SPVM::Point->new(1, 2);
my $point2 = SPVM::Point->new(5, 6);
my $is_equal = $equality_checker->($point1, $point2);
            
          

DESCRIPTION

SPVM::EqualityChecker is a callback type to check the equality.

CALLBACK METHOD

            

              
              
sub : int ($self : self, $obj1 : object, $obj2 : object)
            
          

This method should receive tow objects and return 1 if two object equals, return 0 if not in the method implementation.