@@ -346,7 +346,10 @@ class Squerl::Database { method create_table($_: *@args) { my $table-name = @args[0]; - my $columns = join ', ', gather for @args[1..^*] -> $type, $name { + my $columns = join ', ', gather for @args[1..^*] { + die "Expected a Pair, got a {.WHAT}" + unless $_ ~~ Pair; + my ($name, $type) = .key, .value; given $type.lc { when 'primary_key' { take "$name INTEGER PRIMARY KEY ASC" } when 'int'|'integer' { take "$name INTEGER" } lib/Squerl.pm @@ -6,11 +6,11 @@ use Squerl; unlink (my $file = 't/squerl/posts.db'); my $DB = Squerl.sqlite($file); -$DB.create_table: <posts - primary_key id - Int user_id - String name ->; +$DB.create_table: 'posts', + 'id' => 'primary_key', + 'user_id' => 'Int', + 'name' => 'String', +; #my $posts = $DB<posts>; my $posts = $DB.from('posts'); t/squerl/01-sqlite-write.t a22061c6a34e5c6dd993d6335929cdbd7c123d3d Carl Masak cmasak@gmail.com http://github.com/masak/web/commit/756685b866116a3064aa83553d3af83dbe487a7a 756685b866116a3064aa83553d3af83dbe487a7a 2009-09-28T04:51:58-07:00 2009-09-28T04:51:58-07:00 [Squerl] changed the Database.create_table API Matt-W++ for the feedback. c3996701708b9f8e0920d5df5a625cc7dd4dc54d Carl Masak cmasak@gmail.com