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
|
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 { $_[0]->{string} },
q{0+} => sub { $_[0]->{num} };
1;
|
