Guest User

Untitled

a guest
Mar 14th, 2018
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. #!/usr/local/bin/perl
  2. use strict;
  3. use warnings;
  4. use Data::Dumper;
  5. use Perl6::Say;
  6.  
  7. package MyApp::DB;
  8. use DBIx::Skinny setup => +{
  9. dsn => 'dbi:SQLite:test.db',
  10. username => '',
  11. password => '',
  12. };
  13.  
  14. package MyApp::DB::Schema;
  15. use base qw/DBIx::Skinny::Schema::Loader/;
  16.  
  17. __PACKAGE__->load_schema;
  18.  
  19. package main;
  20. warn MyApp::DB->dbd;
  21. my $db = MyApp::DB->new;
  22. warn $db->dbd;
  23. warn MyApp::DB->dbd;
Add Comment
Please, Sign In to add comment