Perl - 链接方法调用

Question

我有一个类，想按严格的顺序链接它的方法调用，但不知道该怎么做。

# Mail.pm

package Mail;

sub new { ... }
sub inbox { ... }
sub folder { ... }
sub count { ... }

1;

以后...

use Mail;

my $mail = Mail->new;

# ok
$mail->inbox->count;
$mail->folder('Spam')->count;

# prevent calling inbox() after folder() or vice versa
$mail->inbox->folder('Spam')->count;
$mail->folder('Spam')->inbox->count;

Answer 1

显然，folder 应该返回一个有计数的My::Mail::Folder 对象，并且没有inbox 方法，而inbox 应该返回一个有count 方法的My::Mail::Box 对象，但没有@987654328 @方法。

另一方面，我不确定为什么$mail->inbox->folder('Spam')->count; 有问题。

另一方面，为什么你会被方法链所吸引？

另外，请记住，Mail:: 命名空间下有一大堆 CPAN 模块，包括 Mail::Box，从长远来看，将东西放在不太可能出现的命名空间中可能会帮助您保持理智被您可能需要的 CPAN 模块践踏。