此法不错。谢谢！
/Heng
于 2011年04月14日 12:18, Fayland Lam 写道:
#!/usr/bin/perl
package C;
use Moose;
sub XXX { 'XXX' };
package B;
use Moose;
has 'session' => (
is => 'ro',
isa => 'C',
default => sub { C->new },
handles => ['XXX']
);
package A;
use Moose;
has 'req' => (
is => 'ro',
isa => 'B',
default => sub { B->new },
handles => ['XXX']
);
package main;
my $a = A->new;
print '1 ' . $a->XXX . "\n";
print '2 ' . $a->req->session->XXX . "\n";
差不多就这个样子
On 2011/4/14 11:59, Beckheng Lam wrote:可以，有个叫做delegate的概念能这样做。
我的目的是想简化一下代码而已。
于 2011年04月14日 11:00, cnhack TNT 写道:Moose 正在学习中，不过，Moose 可以实现你所需要的这种功能么？
如果要多次调用 XXX()，直接:
$session = $self->req()->session();
$session->XXX();
这样？
2011/4/14 Beckheng Lam <bi.ken.lam@gmail.com>--
Hi,
例如我有个Class，带了一个req属性。可以使 用$self->req()->session()->XXX() 的方法。
如何在handler中写明，就可以直接$self->XXX()而无 需$self->req()->session()->XXX()或 者$self->session()->XXX()这 样？
谢谢！
--
诸法从缘起，如来说是因。
彼法因缘尽，是大沙门说。
--
-- 诸法从缘起，如来说是因。 彼法因缘尽，是大沙门说。
-- Fayland Lam // http://www.fayland.org/
-- 诸法从缘起，如来说是因。 彼法因缘尽，是大沙门说。
博文
