pretienda

2019-04-04 19:45:51 -06:00
parent 49b1256e27
commit 567e991278
10 changed files with 256 additions and 11 deletions
--- a/lib/Dojo/Model/Users.pm
+++ b/lib/Dojo/Model/Users.pm
@@ -62,6 +62,11 @@ sub store{
  return _read ($data_path->child("/store/qStore.q")->slurp);
 }

+sub store_id{
+  my ($self,$id)=@_;
+  return _read ($data_path->child("/store/qIdStore.q")->slurp,$id)->[0];
+}
+
 sub _read{
  my ($q,@bind)=@_;
  my (@empty,$arr);