我如何可以调用的Perl标量的方法呢？

Question

我看到一些代码来调用标量（数字）的方法，是这样的：

print 42->is_odd 

你有什么负荷过重，这样就可以实现在你的代码这种“功能”？

Answer 1

你是指autobox？另见Should I use autobox in Perl?。

Answer 2

这是使用autobox特征的例子。

#!/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";