kitt-vl

SELECT table_schema 'database_name', sum( data_length + index_length )/1024/1024 'Data Base Size in MB' FROM information_schema.TABLES GROUP BY table_schema;

kitt-vl

my @cart_items = $self->table->find(
                                      where=>[ $self->_c->session_condition ],
                                      with => [
                                                                                              
                                                {
                                                  name => 'Catalog.Image',
                                                  columns => [ 'url']
                                                },
                                                {
                                                  name => 'Catalog',

kitt-vl

SELECT "Cart"."unit",
       "Cart"."price",
       "Cart"."quantity",
       "Cart"."summa",
       "Cart"."catalog_id",
       "Catalog"."url", -- <---Ooops =(
       "Catalog_Image"."url",
       "Catalog_Parent"."url_uniq"
FROM "Cart"
LEFT JOIN "Catalog" AS "Catalog" ON "Cart"."catalog_id" = "Catalog"."id"

kitt-vl

<!-- Adopt colors and sizes at your favor -->
<div style="position: fixed; font-size: 32px; background: #36f21c; left: 0; top: 0; z-index: 9999;">
   <span class="d-block d-sm-none">
     XS
   <br />
   </span>
   <span class="d-none d-sm-block d-md-none">
      SM
   <br />
   </span>

kitt-vl

use Mojo::Base -base;
use ojo;

my $link = shift;
my $url = 'https://juick.com/' . $link;

binmode STDOUT, ':utf8';
mkdir 'data' unless -d 'data';

while($url){

kitt-vl

use Mojo::Base -base;
use ojo;

my ($link, $pass) = (shift,shift);
say "use $0 login password" and exit unless $link and $pass;

my $login = p('https://juick.com/login' => form => {username => $link, password => $pass});
say 'Auth failed' and exit unless $login->dom->at('div#ctitle a');

my $url = 'https://juick.com/' . $link;