SPVM::EqualityChecker - a callback type to check the equality
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);
SPVM::EqualityChecker is a callback type to check the equality.
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.
To install SPVM, copy and paste the appropriate command in to your terminal.
cpanm
cpanm SPVM
CPAN shell
perl -MCPAN -e shell install SPVM
For more information on module installation, please visit the detailed CPAN module installation guide.