json

package App::Api::Getusers;
use JSON;

use base 'Mojolicious::Controller';
use utf8;
use JSON::XS;
use IO::File;
use Data::Dumper;
use POSIX;

sub getusers {
    my $self = shift;

    my $query1=qq(select * from users order by id);
    my $query_handle1 = $self->app->db->prepare('SELECT * FROM users ORDER BY id');

    #EXECUTE THE QUERY
    $query_handle1->execute();

    #my variable
    my $i;

    my @Types = ("Type1","Type2","Type3");
    my @Array1 = ("Record1","Record2","Record3","Record4");
    my @sql_query_1_Results;

    #LOOP THROUGH RESULTS and store results for later processing
    while(my $row = $query_handle1->fetchrow_hashref) {
        push @sql_query_1_Results, $row;
    }

    # create data arrays for record we should get 3 arrays with values
    for ($i=0;$i<=$#sql_query_1_Results;$i++)
    {
        push @{$sql_query_1_Results[$i]->{record}},$sql_query_1_Results[$i]->{Some_Value};
    }

    foreach my $record(@Array1) {
        $json = encode_json({ 'name' => $record, 'data'=> \@{$record}  });
        push @chart1_data, $json;
    }
    #DISCONNECT FROM THE DATABASE
    #$dbh->disconnect();

    #JSON OUTPUT
    my $chart1_data_json=encode_json( { chart1 => \@chart1_data } );
    return $self->render(json => {'status' => 'ok', 'list' => \@chart1_data } );
}

1;