aaa

./mini_crm
   +- docs
   |   - mini_crm.mwb
   +- script
       - create_db.pl
       - mini_crm.pl

create_db.pl

#!/usr/bin/perl

use strict;
use warnings;

use File::Basename;
use File::Spec;
use MySQL::Workbench::DBIC;
use MySQL::Workbench::SQLiteSimple;

my $base_dir = File::Spec->rel2abs( File::Spec->catdir( dirname( __FILE__ ), '..' ) );
my $mwb_file = File::Spec->catfile( $base_dir, 'docs', 'mini_crm.mwb' );
my $out_dir  = File::Spec->catdir( $base_dir, 'lib' );

my $foo = MySQL::Workbench::DBIC->new(
    file           => $mwb_file,
    output_path    => $out_dir,
    namespace      => 'Speakers::DB',
    version_add    => 1,
    schema_name    => 'Schema',
    column_details => 1, # default 1
    uppercase      => 1,
);

$foo->create_schema;

my $sqlite = MySQL::Workbench::SQLiteSimple->new(
    file        => $mwb_file,
    output_path => File::Spec->catdir( $base_dir, 'docs' ),
);

$sqlite->create_sql;

print sprintf "Version %s of DB created\n", $foo->version;

gistfile1.txt

  my $db = '/pfad/zur/minicrm.db';
  
  $self->app->helper( db => sub {
    Speakers::DB::Schema->connect( "DBI:SQLite:".$db )
  });
  
  $self->plugin('GraphQL' => {
    convert  => [ 'DBIC', sub { $self->db } ],
    graphiql => 1,
  });