Select Code to Download

use Data::Dumper;

my $N = Value->new(23);
...
    $self->{value}*= $num;
    return $self;    
}

$VAR1 = bless( {
                 'value' => 46
               }, 'Value' );
...
               }, 'Value' );
Operation "=": no method found, argument in overloaded package Value
at /bla/bla/bla/test/Value.pl line 12.

$test->{obj} = $N;
use overload ('*=' => 'mulSet');