Perl Mojolicious藏匿物转储

Question

如何将存储在perl中的垃圾转储

my $my_data =  {
    'me'    =>  {
        'admin' => 'rhaen',
        'desc'  => 'webserver'
    },
    'you' => {
        'admin' => 'hazel',
        'desc'  => 'mailserver'
    }
};
stash(mydata => $my_data);
print Dumper (stash 'mydata');

如何以管理员身份打印mydata。我已经尝试过print Dumper (stash 'mydata me'); print Dumper (stash 'mydata'=>['me']); 似乎没有任何作用。尝试解决数据更改的原因。

Answer 1

我在Mojolicious::Lite中尝试了以下操作：

get '/' => sub {
    my $c = shift;
    $c->stash(mydata => $my_data);
    use Data::Dumper; print Dumper($c->stash('mydata')->{me}{admin});
};

输出为

$VAR1 = 'rhaen';