overload 之后为啥要 吧 所得的值 在bless 一下呢？

3gtan

1. 
   
2. use overload '+' => \&clip_add,
   
3.              '-' => \&clip_sub;
   
4. 
   
5. sub new {
   
6.     my $class = shift;
   
7.     my $value = shift;
   
8.     return bless \$value => $class;
   
9. }
   
10. 
    
11. sub clip_add {
    
12.     my ($x, $y) = @_;
    
13.     my ($value) = ref($x) ? $x : $x;
    
14.     $value     += ref($y) ? $y : $y;
    
15.     $value = 255 if $value > 255;
    
16.     $value =   0 if $value < 0;
    
17.     return bless \$value => ref($x);
    
18. }
    
19. 
    
20. sub clip_sub {
    
21.     my ($x, $y, $swap) = @_;
    
22.     my ($value) = (ref $x) ? $x : $x;
    
23.     $value     -= (ref $y) ? $y : $y;
    
24.     if ($swap) { $value = -$value }
    
25.     $value = 255 if $value > 255;
    
26.     $value =   0 if $value < 0;
    
27.     return bless \$value => ref($x);
    
28. }
    
29. 
    
30. package main;
    
31. 
    
32. $byte1 = ClipByte->new(200);
    
33. $byte2 = ClipByte->new(100);
    
34. 
    
35. $byte3 = $byte1 + $byte2;    # 255
    
36. $byte4 = $byte1 - $byte2;    # 100
    
37. $byte5 = 150 - $byte2;       # 50
    

复制代码

如题
为啥  bless value 给 自己的class？

flw

这个……
还是先了解清楚 bless 是干嘛的吧。

3gtan

bless 不是 吧 reference 注册给 packagename 变成 object的吗？

3gtan

问错啦。不是问return 是问 为啥要 再bless呢
直接输出 结果不久ok啦？

3gtan

还有个问题  overload之后 的 subroutine 就没有 隐藏的  reference参数了吧

3gtan

hoho 为了 相加后的 value 能够继续调用 method 对拉吧