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
|
use strict;
use warnings;
package TMagnitude;
use Class::Trait 'base';
use Class::Trait ("TEquality");
our %OVERLOADS = (
'<' => "lessThan",
'<=' => "lessThanOrEqualTo",
'>' => "greaterThan",
'>=' => "greaterThanOrEqualTo",
);
our @REQUIRES = qw(
lessThan
equalTo
);
sub lessThanOrEqualTo {
my ( $left, $right ) = @_;
return ( $left->lessThan($right) || $left->equalTo($right) );
}
sub greaterThan {
my ( $left, $right ) = @_;
return ( $right->isLessThan($left) );
}
sub greaterThanOrEqualTo {
my ( $left, $right ) = @_;
return ( $right->isLessThanOrEqualTo($left) );
}
sub isBetween {
my ( $self, $left, $right ) = @_;
return ( $self->greaterThanOrEqualTo($left)
&& $self->lessThanOrEqualTo($right) );
}
1;
__DATA__
|
