ModelDB - an MVP ORM
use DBIish;
use ModelDB;
module Model {
use ModelDB::ModelBuilder;
model Person {
has Int $.person-id is column is primary;
has Str $.name is column is rw
has Int $.age is column is rw;
has Str $.favorite-color is column is rw;
}
model Pet {
has Str $.pet-id is column is primary;
has Str $.name is column is rw;
has Str $.animal is column is rw;
}
}
class Schema is ModelDB::Schema {
use ModelDB::SchemaBuilder;
has ModelDB::Table[Person] $.persons is table;
has ModelDB::Table[Pet] $.pets is table;
}
my $dbh = DBIish.connect('SQLite', :database<db.sqlite3>);
my $schema = Schema.new(:$dbh);
my $person = $schema.persons.create(%(
name => 'Steve',
age => 9,
favorite-color => 'cyan',
));
$person.name = 'Alex';
$person.age = 4;
$person.favorite-color = 'green';
$schema.persons.update($person);
my $by-id = $schema.pets.find(pet-id(1));
my @cats = $schema.pets.search(:animal<cat>).all;
This is a minimalist object relational mapping tool. It helps with mapping your database objects into Perl from an RDBMS. I am experimenting with this API to see what I can learn about RDBMS patterns, problems, and specific issues as related to Perl 6.
As such, this is highly experimental and I make no promises as regards the API. Though, I do use it in some production-ish code, so I don't want to change too much too fast.
My intent, though, is to use what I learn here to build a different library in a different namespace that does what I really want based on what I learn here.
My goals include:
Pod::Defn<140403348404624>
Pod::Defn<140403348404568>
Pod::Defn<140403332796200>
Pod::Defn<140403332796256>
Pod::Defn<140403332796312>
Performance and multiple RDBMS support are anti-goals. This will likely only support MySQL (and forks) and SQLite because that's what I care about. I do not plan to make performance improvements unless required and I especially do not intend to add any optimizations that harm code readability of even the internals unless required.