(jeffa) 3Re: A better mod (%) operator?

in reply to Re: (jeffa) Re: A better mod (%) operator?
in thread A better mod (%) operator?

Yep, you have to have a blessed package (an object) in order for overload to work - but who says you can't bless main? ;)

use strict;

use overload '+' => sub { ${$_[0]} - ${$_[1]} };
use overload '-' => sub { ${$_[0]} + ${$_[1]} };

my ($x,$y) = (90,60);
my $i = bless \$x, 'main';
my $j = bless \$y, 'main';

# objects use overloaded operators
print $i + $j, $/; # 30
print $i - $j, $/; # 150

# normal scalars use Perl operators
print $x + $y, $/; # 150
print $x - $y, $/; # 30
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Meditations