The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

SPVM::EqualityChecker - Interface Type for Object Equality Checking Callback

SYNOPSYS

  use EqualityChecker;
  use Point;
  
  my $equality_checker = (EqualityChecker)method : int ($object1 : object, $object2 : object) {
    my $point1 = (Point)$object1;
    my $point2 = (Point)$object2;
    
    if ($point1->x == $point2->x && $point1->y == $point2->y) {
      return 1;
    }
    else {
      return 0;
    }
  };
  
  my $point1 = Point->new_xy(1, 2);
  my $point2 = Point->new_xy(5, 6);
  
  my $is_equal = $equality_checker->($point1, $point2);

DESCRIPTION

EqualityChecker is the interface type for the object equality checking callback.

INTERFACE METHODS

  required method : int ($object1 : object, $object2 : object)

The implementation must receive two objects and if they are equal, return 1, otherwise return 0.