Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: Help! Overloading operators doesn't work

by Corion (Pope)
on Sep 01, 2012 at 11:30 UTC ( #991144=note: print w/replies, xml ) Need Help??

in reply to [solved] Help! Overloading operators doesn't work

Have you tried taking Moose and namespace::autoclean out of the picture?

Once I remove them and fix the remaining code, it works:

#!/usr/bin/perl use 5.012003; # Perl version requirement #=========================================================== # Percentage CLASS (script below) #=========================================================== package Percentage; #use Any::Moose; #use namespace::autoclean; sub new { my $class = shift; bless { int => @_ } => $class; }; use overload q{""} => \&to_string, '0+' => \&to_num, '+' => \&add; sub to_string { my $self = shift; print "to_string()\n"; return $self->int(); } sub to_num { my $self = shift; print "to_num()\n"; return $self->int(); } sub add { my ($left, $right) = @_; print "add()\n"; my $result = new Percentage( $left->int() + $right->int() ); return $result; } sub int { $_[0]->{int} } 1; #=========================================================== # SCRIPT #=========================================================== package Example::Script; use 5.012003; # Perl version requirement use strict; use warnings; # printed in output : my $a = new Percentage(2); # build my $a_num = $a->int(); # print "$a\n"; # Percentage=Hash(0x11cfe8c) print "$a, $a_num\n"; # Percentage=Hash(0x11cfe8c), 2 my $b = new Percentage(3); # build my $c = $b + $a; # print "$b, $c\n"; # Percentage=Hash(0x116912c), 3693356 __END__ to_string() 2 to_string() 2, 2 add() to_string() to_string() 3, 5

I assume that something somewhere within Moose(::Any) or namespace::autoclean messes up the overloading. Maybe the bug reports or feature limitations tell a clearer story.

Update: Searching Moose for overload points me to Class::MOP::Class, which has an API to introspect overloading. Maybe consult that to find out whether your class actually has overloading, or maybe Moose / MOP want you to set up all your overloading through this mechanism instead of overload directly.

Replies are listed 'Best First'.
Re^2: Help! Overloading operators doesn't work
by mascip (Pilgrim) on Sep 01, 2012 at 11:58 UTC

    You're right, it's because of namespace::autoclean

    There is an example in the Moose Cookbook, of overloading with Moose :
    It uses the overloading operator.

    According to a namespace::autoclean review, if you use overloading with Moose you should use namespace::sweep instead of namespace::autoclean : "This pragma was written to address some problems with the excellent namespace::autoclean. In particular, namespace::autoclean will remove special symbols that are installed by overload, so you can't use namespace::autoclean on objects that overload Perl operators."

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://991144]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (10)
As of 2018-06-25 16:37 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (127 votes). Check out past polls.