Question

所以perl5porters正在讨论添加一个安全的解除引用运算符，以允许像

这样的东西

$ceo_car_color = $company->ceo->car->color
    if  defined $company
    and defined $company->ceo
    and defined $company->ceo->car;

缩短为例如。

$ceo_car_color = $company->>ceo->>car->>color;

其中$foo->>bar表示defined $foo ? $foo->bar : undef。

问题：是否有一些模块或不引人注意的黑客攻击我的操作符，或类似的行为，具有视觉上令人愉悦的语法？

为了您的享受，我会列出我能够提出的想法。

多重去除方法（看起来很难看）。

sub multicall {
    my $instance = shift // return undef;
    for my $method (@_) {
        $instance = $instance->$method() // return undef;
    }
    return $instance;
}

$ceo_car_color = multicall($company, qw(ceo car color));

将undef转换为代理对象（看起来更加丑陋）的包装器，它从所有函数调用返回undef。

{ package Safe; sub AUTOLOAD { return undef } }
sub safe { (shift) // bless {}, 'Safe' }

$ceo_car_color = safe(safe(safe($company)->ceo)->car)->color;

由于我可以访问ceo()，car()和color()的实现，因此我考虑直接从这些方法返回安全代理，但现有代码可能会中断：
```
my $ceo = $company->ceo;
my $car = $ceo->car if defined $ceo; # defined() breaks
```
很遗憾，我在perldoc overload中没有看到有关在我的安全代理中重载defined和//的含义的任何内容。

Answer 1

也许这不是最有用的解决方案，但它还有一个WTDI（nr.1的变体），它是List::Util的 reduce 的一个非常重要的用例，这是非常罕见的。 ;）

代码

#!/usr/bin/env perl

use strict;
use warnings;
use feature     'say';
use List::Util  'reduce';

my $answer = 42;
sub new { bless \$answer }
sub foo { return shift }        # just chaining
sub bar { return undef }        # break the chain
sub baz { return ${shift()} }   # return the answer

sub multicall { reduce { our ($a, $b); $a and $a = $a->$b } @_ }

my $obj = main->new();
say $obj->multicall(qw(foo foo baz)) // 'undef!';
say $obj->multicall(qw(foo bar baz)) // 'undef!';

输出

42
undef!

注意：的

当然应该是

return unless defined $a;
$a = $a->$b;

而不是上面较短的$a and $a = $a->$b以正确使用已定义但值为false的值，但我的观点是使用 reduce 。

Answer 2

您可以使用eval：

$ceo_car_color = eval { $company->ceo->car->color };

但它当然会捕获任何错误，而不只是在undef上调用方法。

在Perl中是否有方便安全解除引用？

2 个答案:

代码

输出