view release on metacpan or  search on metacpan

share/flavor/Basic/config/__ENV__.pl  view on Meta::CPAN

use File::Spec;
use File::Basename qw(dirname);
my $basedir = File::Spec->rel2abs(File::Spec->catdir(dirname(__FILE__), '..'));
my $dbpath = File::Spec->catfile($basedir, 'db', '<% $env %>.db');
+{
    'DBI' => [
        "dbi:SQLite:dbname=$dbpath", '', '',
        +{
            sqlite_unicode => 1,
        }
    ],
};

t/300_setup/09_minil_migrate.t  view on Meta::CPAN

        }

        my $conf = File::Temp->new();
        print {$conf} <<"...";
use File::Spec;
use File::Basename qw(dirname);
+{
    'DBI' => [
        "dbi:SQLite:dbname=$dbdir/test.db", '', '',
        +{
            sqlite_unicode => 1,
        }
    ],
};
...

        note slurp("$libdir/bin/${script}");

        test_tcp(
            client => sub {
                my $port = shift;