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
|
package Overloaded; ##no critic (Modules::RequireFilenameMatchesPackage)
use strict;
sub new {
my $class = shift;
bless { string => shift, num => shift }, $class;
}
package Overloaded::Compare;
use strict;
our @ISA = qw(Overloaded);
# Sometimes objects have only comparison ops overloaded and nothing else.
# For example, DateTime objects.
use overload
q{eq} => sub { $_[0]->{string} eq $_[1] },
q{==} => sub { $_[0]->{num} == $_[1] };
package Overloaded::Ify;
use strict;
our @ISA = qw(Overloaded);
use overload
q{""} => sub {
@_ == 3 or die "Expected 3 parameters";
$_[0]->{string};
},
q{0+} => sub {
@_ == 3 or die "Expected 3 parameters";
$_[0]->{num};
};
package Overloaded::Partial;
our @ISA = qw(Overloaded);
use overload
q{""} => sub { $_[0]->{string} },
q{!=} => sub { $_[0]->{num} != $_[1] };
1;
|
