我如何可以調用的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";