summaryrefslogtreecommitdiff
path: root/lib/Ultramarine/Model/DB.pm6
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Ultramarine/Model/DB.pm6')
-rw-r--r--lib/Ultramarine/Model/DB.pm65
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Ultramarine/Model/DB.pm6 b/lib/Ultramarine/Model/DB.pm6
index 7a0d512..0845add 100644
--- a/lib/Ultramarine/Model/DB.pm6
+++ b/lib/Ultramarine/Model/DB.pm6
@@ -57,16 +57,17 @@ class Ultramarine::Model::DB {
}
method all-songs() {
- my $sth = $!dbh.query(q:to/END/);
+ my $sth = $!dbh.prepare(q:to/END/);
SELECT *
FROM songs
ORDER BY path ASC
END
- LEAVE { .finish with $sth };
+ $sth.execute();
return gather {
while $sth.row(:hash) -> %song {
take unpack-row(%song);
}
+ .finish with $sth;
}
}