perl - 无法让 Mojo::Redis2 订阅

Question

我编写了以下程序 (redis.pl)，Redis 使用默认端口设置在本地运行，但是当我使用 morbo 运行 redis.pl 时redis.pl 我从来没有在屏幕上看到 ********* 1。这是为什么？订阅似乎永远不会发生。我该如何解决这个问题？

#!/usr/bin/perl

use v5.18;
use warnings;

use Mojolicious::Lite;
use Mojo::Redis2;

say "Welcome";

my $redis = Mojo::Redis2->new();

$redis->subscribe(['pubsub'] => sub {
    say "********* 1";
});

get '/' => sub {
    my $self = shift;

    $self->render(json => {a => 1});
};

app->start;

Answer 1

我目前没有安装 redis 实例，但我认为这应该可以。

#!/usr/bin/perl

use v5.18;
use warnings;

use Mojolicious::Lite;
use Mojo::Redis2;

say "Welcome";

helper redis => sub {state $redis = Mojo::Redis2->new()};

app->redis->subscribe(['pubsub'] => sub {
    say "********* 1";
});

get '/' => sub {
    my $self = shift;

    $self->render(json => {a => 1});
};

app->start;

我怀疑一旦 redis 实例超出范围，您就会失去它及其连接。