Perl | #!perl #$ENV{DBIC_TRACE} = 1; - Anonymous - m238cb877

#!perl
#$ENV{DBIC_TRACE} = 1;

use strict;
use warnings;

use feature ':5.10';

use FindBin;
use lib "$FindBin::Bin/../lib";
use ACD::Schema;
use Config::JFDI;
use Devel::REPL;
my $config = Config::JFDI->new(name => 'acd', path => "$FindBin::Bin/../acd");
my $config_hash = $config->get;
my $connect_info = $config_hash->{Model}{DB}{connect_info};
my $schema = ACD::Schema->connect($connect_info);
$schema->storage->ensure_connected;

my $repl = Devel::REPL->new;
$repl->load_plugin($_) for qw(OutputCache MultiLine::PPI Colors Timing History LexEnv);
$repl->run