MojoX::Redis example

Author.pm

package NoticeBackend::Author;
use Mojo::Base 'Mojolicious::Controller';

use 5.12.0;
use warnings;
use utf8;

use MojoX::Redis;

my $redis = MojoX::Redis->new(server => '192.168.1.20:6379');

my ($redis_out);

sub get{
  my $self = shift;
  
  my $user_query = $self->req->is_xhr ?
            $self->req->json->{'name'} : $self->param('name');
  my $callback_name = $self->req->is_xhr ?
            $self->req->json->{'callback'} : $self->param('callback');
  
  my $data_out;
  
  $redis->get( $user_query => sub {
          my ($redis, $res) = @_;

          $data_out = $res->[0];
          print "Value of ' $user_query ' is $res->[0]\n";
      });
  
  
say 'before render';

    $self->render( text => "|$data_out|" );
    
    
say 'after render';
};

1;