Perl如何修改Perl语法

Question

我阅读了Mojolicious 奴才文献，发现了以下代码：

use v5.28;
use Mojolicious::Lite;
use experimental qw( signatures );
use Time::HiRes qw( time );

plugin Minion => {
    SQLite => 'sqlite:' . app->home->child('minion.db'),
};

# ...
app->start;

他们是如何创建新的语法plugin Minion => {...}的？我从未在经典的Perl书籍中看到过这种情况。它是一个带有散列参数的函数调用吗？"Minion“是一个键，hashref {...}是一个值吗？

另外，他们称app->start - app是一个函数，返回一个有福的hashref？但如果它是一个散列，为什么“开始”不包含在大括号中？这个语法在我看来很奇怪。

Answer 1

app是一个返回$app的函数，它是Mojolicious::Lite=HASH的一个实例。

app->start与app()->start相同

https://github.com/mojolicious/mojo/blob/24d1d1987dbfbe27eaaa37dd5db692d2deb8d07f/lib/Mojolicious/Plugin/Config.pm#L12-L14

"sub app; local *app = sub { \$app }; use Mojo::Base -strict; $content";
                             |
                             ^ not a reference but escape
                             due to eval() of double quoted string

再生产

perl -MMojolicious::Lite -E 'no warnings; sub foo; local *foo = sub { app }; say for foo, app'

输出

Mojolicious::Lite=HASH(0xe72080)
Mojolicious::Lite=HASH(0xe72080)

plugin是一个正则函数

perl -MData::Dumper -wE 'sub plugin { print Dumper \@_ } plugin Minion => { SQLite => "sqlite:" }'
$VAR1 = [
          'Minion',
          {
            'SQLite' => 'sqlite:'
          }
        ];

您可以添加parens，并删除fat逗号，使其看起来像通常的函数调用，

plugin("Minion", { SQLite => "sqlite:" });