Skip to content

Instantly share code, notes, and snippets.

@nekoya
Created October 14, 2009 09:02
Show Gist options
  • Save nekoya/209906 to your computer and use it in GitHub Desktop.
Save nekoya/209906 to your computer and use it in GitHub Desktop.
#!/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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment