diff options
-rw-r--r-- | lib/Ultramarine/Model/DB.pm6 | 5 |
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; } } |