使用 Perl/Moose，修饰符返回的值会发生什么情况？

Question

学习perl 我最近才发现Moose的奇妙之处！

我正在尝试了解修饰符 - 或者至少如何处理返回值......它们是否存储在某个地方？

{package Util::Printable;

use Moose::Role;

  requires 'to_str','init';

  before 'to_str' => sub {
      my($self) = @_;
      $self->{to_string} = "my string thing";
      return $self->{to_string}; 
  };

  after 'init' => sub{
    my($self) = @_;
    $self->{roles} = __PACKAGE__;
    $self->{is_printable} = 1;
  };


}
1;
__END__ 

使用可打印角色

{package MonkeyPrint;
use Moose;

with 'Util::Printable';


  sub init{
    my($self) = @_;
    return 1;
  };

  sub BUILD{
    my($self) = @_;
    $self->init();  
  }


  # ------------------------------------------------------------------------ # 
  # Printable Support
  # ------------------------------------------------------------------------ #
  use overload '""' => 'to_str';  

  sub to_str {
      my($self) = @_;
      $self->{to_string} = __PACKAGE__;
      return $self->{to_string}; 
  };


 __PACKAGE__->meta->make_immutable;
}
1;
__END__ 

Answer 1

假设一个方法有一个 before 和一个 after 包装器。

1. 调用 before 代码。
2. 它的返回值被忽略/丢弃。
3. 调用原来的方法。
4. 它的价值被保存了。
5. 调用 after 代码。
6. 它的返回值被忽略/丢弃。
7. 返回保存的值。

如果需要更改或替换原始方法返回的值，请使用 around。