Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/local/bin/perl
- use strict;
- use warnings;
- use Data::Dumper;
- use Perl6::Say;
- package MyApp::DB;
- use DBIx::Skinny setup => +{
- dsn => 'dbi:SQLite:test.db',
- username => '',
- password => '',
- };
- package MyApp::DB::Schema;
- use base qw/DBIx::Skinny::Schema::Loader/;
- __PACKAGE__->load_schema;
- package main;
- warn MyApp::DB->dbd;
- my $db = MyApp::DB->new;
- warn $db->dbd;
- warn MyApp::DB->dbd;
Add Comment
Please, Sign In to add comment