lib/Promulger/Schema.pm

   1 package Promulger::Schema;
   2 use strict;
   3 use warnings;
   4
   5 use KiokuDB;
   6
   7 my $kdb;
   8 my $scope;
   9
  10 sub connect {
  11   my($self, $dsn) = @_;
  12   $kdb = KiokuDB->connect(
  13     $dsn,
  14     create => 1,
  15   );
  16   $scope = $kdb->new_scope;
  17 }
  18
  19 sub store {
  20   my($self, $obj) = @_;
  21   $kdb->store($obj);
  22 }
  23
  24 1;