SPVM::Comparator::Object - Comparator::Object in SPVM | a callback interface for comparation
use Comparator::Object; my $comparator : Comparator::Object = method : int ($object1 : object, $object2 : object); { my $point1 = (Point)$object1; my $point2 = (Point)$object2; if ($point1->x > $point2->x) { return 1; } elsif ($point1->x < $point2->x) { return -1; } else { return 0; } }; my $point1 = Point->new(1, 2); my $point2 = Point->new(5, 6); my $result = $comparator->($point1, $point2);
Comparator::Object is a callback interface to compare two objects.
method : int ($object1 : object, $object2 : object);
This method must receive two objects and return 1 if $object1 is more than $object2, -1 if $x is less than $object2, 0 if $object1 equals $object2 in the implementation.
This method is planned to be implemented in other classes.
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.