为什么不是“|"被超载了吗? [英] Why isn't '|' being overloaded?
本文介绍了为什么不是“|"被超载了吗?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
以下代码未按预期工作.我错过了什么?
The following code does not work as expected. What am I missing?
use strict;
use warnings;
use overload '|' => sub { 1 / ( 1 / $_[0] + 1 / $_[1] ) };
print( 5 | 5 ); # Prints '5' instead of '2.5'
推荐答案
overload
仅适用于受祝福的引用(对象").
overload
works only on blessed references ("objects").
package MyNumber;
use strict;
use warnings;
use overload '|' => sub { 1 / ( 1 / +$_[0] + 1 / +$_[1] ) },
'0+' => sub { $_[0]->{value} }, # Cast to number
fallback => 1; # Allow fallback conversions
# "Constructor", bless number as MyNumber
sub num {
my $self = { value => $_[0] }; # can be any reference
return bless $self, "MyNumber";
}
print(num(5) | num(5));
my $a = num(5);
print ($a | 5); # This works too
这篇关于为什么不是“|"被超载了吗?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文