From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

KIMOTO / SPVM-0.990045 / lib / SPVM / Comparator.pm 

            

              
1
2
3
—
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

              
package SPVM::Comparator;
1;
=head1 Name
SPVM::Comparator - Interface Type for Object Comparation Callback
=head1 Usage
   
  use Comparator;
  use Point;
   
  my $comparator = (Comparator)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);
=head1 Description
C<Comparator> is the interface type for the object comparation callback.
=head1 Interface Methods
C<required method : int ($object1 : object, $object2 : object);>
This method must receive two objects and return the following value.
If the first argument is greater than the second argument, returns 1. If the first argument is lower than the second argument, returns -1. If the first argument is equal to the second argument, returns 0.
=head1 Class Methods
=head2 default_comparator
C<static method default_comparator : L<Comparator|SPVM::Comparator> ();>
Returns a default comparator.
The implementation of the default comparator is
  method : int ($object1 : Comparable, $object2 : Comparable) {
       
      my $cmp = 0;
      if ($object1 && $object2) {
        $cmp = $object1->cmp($object1, $object2);
      }
      elsif ($object1) {
        $cmp = 1;
      }
      elsif ($object2 ) {
        $cmp = -1;
      }
       
      return $cmp;
    }
     
    return $default_comparator;
  }
If $object1 and $object2 are defined, the comparison is perfermed by L<Comparable#cmp|SPVM::Comparable/"cmp"> method in the class of $object1, and returns its return value.
If only $object1 is defined, returns 1.
If only $object2 is defined, returns -1.
If both $object1 and $object2 are not defined, returns 0.
=head1 Copyright & License
Copyright (c) 2023 Yuki Kimoto
MIT License