CPAN::Groonga

n::Perl;
use base qw(App::Cmd::Simple);

use Catalyst::Authentication::RedmineCookie::Schema;
use JSON::MaybeXS;
use MyContainer;

sub opt_spec {
    (
        [ "login=s", "SELECT * FROM users WHERE 

);

    my $cols = sub {
        my ($obj) = @_;
        state $json = JSON::MaybeXS->new( canonical => 1, pretty => 1, );
        $json->encode( { $obj->get_columns } );
    };

    say "--> user";
 

package Catalyst::Authentication::Credential::RedmineCookie;

use Moose;

use IPC::Open2;
use JSON::MaybeXS qw(:legacy);
use POSIX ":sys_wait_h";

has cmd => ( is => 'ro', isa => 'Str|ArrayRef', requi

h;
        my $line = <$out>;
        if ( $line =~ /^{/ ) {
            my $data = eval { decode_json($line) };
            if ($@) {
                $c->log->error("@{[ __PACKAGE__ ]} $@ line:$line"

       cmd   => [qw(ssh redmine.server rails4_cookie_to_json.rb)],
                        cmd   => [qw(sudo jexec redmine rails4_cookie_to_json.rb)],
                    },
                    # It d

   => [qw(ssh redmine.server /root/rails4_cookie_to_json.rb)],
                        # cmd   => [qw(sudo jexec redmine /root/rails4_cookie_to_json.rb)],
                    },
                    #