gistfile1.txt

#!/usr/bin/env perl
# 
# shelling <shelling@cpan.org>
#
# First KiokuDB example

use KiokuDB;

package Person;
use Moose;

has name => (
  isa => 'Str',
  is  => 'rw',
);

package main;

my $db = KiokuDB->connect( "dbi:SQLite:dbname=kiokudb.sqlite3", create => 1 );

my $obj = Person->new( name => "Shelling Ford" );

my $scope = $db->new_scope;

my $homer_id = $db->store($obj);