Advertisement
Guest User

Mojolicious session bug?

a guest
Jun 11th, 2013
47
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.70 KB | None | 0 0
  1. #!/usr/bin/env perl
  2. use Mojolicious::Lite;
  3. use Data::Dumper;
  4.  
  5. get '/get' => sub {
  6.     my $self = shift;
  7.     $self->render(text => 'pigs is now ' . $self->session('pigs')->{id});
  8. };
  9.  
  10. get '/set' => sub {
  11.     my $self = shift;
  12.     $self->session('pigs' => { id => '000500'});
  13.     $self->render(text => 'pigs is now ' . $self->session('pigs')->{id});
  14. };
  15.  
  16. get '/redir' => sub {
  17.     my $self = shift;
  18.     # After the next line, session('pigs')->{id} = 500, not '000500'
  19.     if($self->session('pigs') && ($self->session('pigs')->{id} == 7)) {
  20.         $self->redirect_to('/get');
  21.     } else {
  22.         $self->render(text => 'pigs no match: ' . $self->session('pigs')->{id});
  23.     }
  24. };
  25.  
  26. app->start;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement