CPAN::Groonga

2'; # VERSION

use Mojo::Base 'Mojolicious::Controller';
use experimental 'postderef';
use JSON::Meth qw/$json/;

sub login {
    my $self = shift;

    my $user = $self->users->check(
        $self->

self->config('site') )->@*;
    my @list;
    for ( @prods ) {
        my $pr = $_->{price_raw}->$json->{ $self->config('site') };
        if ( ref $pr ) {
            $pr = join ',', map "${_}_$pr->{

ION = '0.005002'; # VERSION

use Mojo::Base -base;
use XTaTIK::Model::Products;
use Mojo::Pg;
use JSON::Meth;

use experimental 'postderef';

my @ACCESSORS = qw/contents created_on
    address1  addre

N

use Mojo::Base -base;
use XTaTIK::Model::Products;
use XTaTIK::Model::Quote;
use Mojo::Pg;
use JSON::Meth;

use experimental 'postderef';

my $Blank_Cart_Data = {
    contents => [],
    total    =

N

use Mojo::Base -base;
use XTaTIK::Model::Products;
use XTaTIK::Model::Quote;
use Mojo::Pg;
use JSON::Meth;

use experimental 'postderef';

has [qw/
    pg
/];

sub all {
    my $self = shift;

    

qw/sort_by  extract_by/;
use Scalar::Util qw/blessed/;
use experimental qw/postderef/;
use JSON::Meth qw/$json/;

use autobox;
sub SCALAR::split_comma { [ split /\s*,\s*/, $_[0] ] }

has [qw/pg  prici

} }

    $values{sites} //= 'default';
    $values{price} //= { default => { '00' => '0.00' } }->$json;

    return $self->pg->db->query(
        'INSERT INTO products (number, image, title,
         

/g;

        # Remove site's pricing
        my $p = $_->{price}->$json;
        delete $p->{ $site };
        $_->{price} = $p->$json;

        $self->pg->db->query(
            q{UPDATE products SET