use strict;
use warnings;
package TCircle;
use Class::Trait 'base';
use Class::Trait qw(TMagnitude TGeometry);
our %OVERLOADS = (
'<' => "lessThan",
'==' => "equalTo"
);
sub lessThan {
my ( $left, $right ) = @_;
# ...
}
sub equalTo {
my ( $left, $right ) = @_;
# ...
}
1;
__DATA__