perl - 如何访问 Dancer2 的 session 对象？

Question

我正在为我的网络应用程序使用 Dancer2 和 YAML session 引擎。我的 config.yml 包含

engines:
  session:
    YAML:
      ...
      cookie_duration: 5 minutes
      ...

我想显示类似“您的 session 在 X 分钟后到期” 的内容。

我如何访问这个值，即我如何访问我的路由中的 $session 对象？

使用 DSL 关键字 session 我只能设置和获取任意值，例如 session username => 'Bob'; 和 $username = session('username'); 等

请注意，我对获取配置值 (settings('engines')->{session}{YAML}{cookie_duration}) 不感兴趣，因为那是我必须要获取的字符串解析，这取决于 YAML 作为我的 session 引擎。我想访问 $session->session_duration。

Answer 1

当您调用session 时不带任何参数，您将取回 session 对象。如果这样更易于阅读，请随意将其分配给 $session 变量。要获取到期时间，请使用 the expires method .

my $session = session;
warn $session->expires;

或者更简单:

warn session->expires;