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');

Как распечатать мои данные мне админ. Я пытался 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';