Help for this page
package MyPackage; sub new { ... package main; my $a = MyPackage::->new(1);
package main; my $b = $a;
my $c = $a + $b;
package MyPackage; use overload q/+/ => \&add; ... sub add { $_[0]->new( $_[0]->{foo} + (ref($_[1]) ? $_[1]->{foo} : $_[1]) ) }
package main; my $c = $a + $b;
$b++;
package MyPackage; use overload q/++/ => sub { $_[0]->{foo}*=2; shift }; ... package main; $d = $c; $d++;
package MyPackage; use overload q/=/ => sub { $_[0]->new($_[0]->{foo}) };
package main; $d = $c;
$d++;
www.com | www.net | www.org
No recent polls found