Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.25 KB | None | 0 0
  1. package Portfolio::Schema;
  2.  
  3. use DBIx::Simple;
  4.  
  5. my $db;
  6.  
  7. sub db {
  8.     if (!$db) {
  9.         $db = DBIx::Simple->connect('dbi:SQLite:dbname=database.db', undef, undef, { sqlite_unicode => 1 }) or die DBIx::Simple->error;
  10.     }
  11.     $db;
  12. };
  13.  
  14. 1;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement