Guest User

Untitled

a guest
Feb 18th, 2018
194
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.61 KB | None | 0 0
  1. use Devel::REPL;
  2. my $repl = Devel::REPL->new;
  3. $repl->load_plugin(‘LexEnv’);
  4. $repl->lexical_environment->do(<<’CODEZ’);
  5. use FindBin;
  6. use lib “$FindBin::Bin/../lib”;
  7. use Cl::Model::Cl;
  8.  
  9. my $modelconfig = Cl::Model::Cl->config;
  10. my $schema_class = $modelconfig->{schema_class};
  11. my $dsn = $modelconfig->{connect_info}->{dsn};
  12. my $user = $modelconfig->{connect_info}->{user};
  13. my $password = $modelconfig->{connect_info}->{password};
  14.  
  15. eval “use $schema_class”;
  16. my $s = $schema_class->connect($dsn,$user,$password);
  17.  
  18. CODEZ
  19.  
  20. $repl->run;
Add Comment
Please, Sign In to add comment