projects
/
p5sagit/Promulger.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
simple and stupid list creation. sets up aliases, creates the object, stores it.
[p5sagit/Promulger.git]
/
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;