我看到了一些调用标量(数字)方法的代码,例如:
print 42->is_odd
您必须重载什么才能在代码中实现这种“功能”?
你指的是自动装箱吗?另请参阅我应该在 Perl 中使用自动装箱吗?.
这是一个使用自动装箱功能的示例。
#!/usr/bin/perl
use strict;
use warnings;
package MyInt;
sub is_odd {
my $int = shift;
return ($int%2);
}
package main;
use autobox INTEGER => 'MyInt';
print "42: ".42->is_odd."\n";
print "43: ".43->is_odd."\n";
print "44: ".44->is_odd."\n";