view release on metacpan or  search on metacpan

utils/test_schema.pl  view on Meta::CPAN

#/usr/bin/env perl

use Modern::Perl;

use Data::Printer;
use Try::Tiny;

use lib '../lib';
use AuditTest::Schema;
use DBIx::Class::AuditLog;

my $schema = AuditTest::Schema->connect( "DBI:mysql:database=audit_test",
    "root", $ARGV[0], { RaiseError => 1, PrintError => 1 } );