Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use Devel::REPL;
- my $repl = Devel::REPL->new;
- $repl->load_plugin(‘LexEnv’);
- $repl->lexical_environment->do(<<’CODEZ’);
- use FindBin;
- use lib “$FindBin::Bin/../lib”;
- use Cl::Model::Cl;
- my $modelconfig = Cl::Model::Cl->config;
- my $schema_class = $modelconfig->{schema_class};
- my $dsn = $modelconfig->{connect_info}->{dsn};
- my $user = $modelconfig->{connect_info}->{user};
- my $password = $modelconfig->{connect_info}->{password};
- eval “use $schema_class”;
- my $s = $schema_class->connect($dsn,$user,$password);
- CODEZ
- $repl->run;
Add Comment
Please, Sign In to add comment