perl - 如何委托给带有 Moose 句柄的对象的子对象？

Question

Moose 文档说我可以很容易地委托给对象thing。

has 'thing' => (
   ...
   handles => { set_foo => [ set => 'foo' ] },
);

# $self->set_foo(...) calls $self->thing->set('foo', ...)

但我真的想委托给一个对象，特别是一个日期时间对象

has 'thing' => (
   ...
   handles => {
       get_month => { datetime ... },
   },
);

# $self->get_month calls $self->thing->datetime->month;

我将如何构建句柄才能让它做到这一点？

Answer 1

has thing => (
   ...
   handles => {
      get_month => sub { $_[0]->thing->datetime->month },
   },
);

除了添加datetime_monthtothing之外，您还必须编写自己的委托人。