Meettya

before render
Use of uninitialized value $data_out in concatenation (.) or string at ../lib/NoticeBackend/Author.pm line 34.
after render
Value of ' users ' is Meettya

Meettya

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

use 5.12.0;
use warnings;
use utf8;

use MojoX::Redis;
use Mojo::IOLoop;

Meettya

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

Meettya

#!/usr/bin/env perl

use v5.14;
use warnings;

use AnyEvent::CouchDB;
use Data::Dump 'pp';

my $couch = couch('http://localhost:5984/');
my $db = couchdb('open_notice');

Meettya

set background=dark

hi clear

if exists("syntax_on")
  syntax reset
endif

let colors_name = "kraihlight"

Meettya

#!/usr/bin/env perl

use v5.14;
use warnings;

# develop mode
use Smart::Comments;
use Data::Printer;

Meettya

 my @where = (
     -and => [a => 1, b => 2],
     -or  => [c => 3, d => 4],
      e   => [-and => {-like => 'foo%'}, {-like => '%bar'} ]
   );

Meettya

WHERE ( (    ( a = ? AND b = ? )
            OR ( c = ? OR d = ? )
            OR ( e LIKE ? AND e LIKE ? ) ) )

Meettya

#!/usr/bin/env perl

use v5.14;
use warnings;

# develop mode
use Smart::Comments;
use Data::Printer;

 use SQL::Interp ':all';

Meettya

"UPDATE table SET login=?, password=?, user=? WHERE y <>  ? AND z IN (?, ?, ?)"
[
    [0] "foo",
    [1] 12345,
    [2] "Bar Bazz",
    [3] 26,
    [4] 3,
    [5] 4,
    [6] 5
]