[p5sagit/Promulger.git] / lib / Promulger / Schema.pm

package Promulger::Schema;
use strict;
use warnings;

use KiokuDB;

my $kdb;
my $scope;

sub connect {
  my($self, $dsn) = @_;
  $kdb = KiokuDB->connect(
    $dsn,
    create => 1,
  );
  $scope = $kdb->new_scope;
}

sub store {
  my($self, $obj) = @_;
  $kdb->store($obj);
}

1;
Commit	Line	Data
514dce63	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;