qstore

lib/Dojo/Model/Users.pm

@@ -3,10 +3,12 @@ package Dojo::Model::Users;
 
 use strict;
 use warnings;
+use Mojo::File 'path';
 use DBI;
 use Mojo::Util 'secure_compare';
 use Dojo::Conf;
 
+my $data_path = path('lib/Dojo/Model/Data')->make_path;
 
 sub new { bless {}, shift }
 sub createu{
@@ -56,6 +58,10 @@ sub check {
   return $r->{pid} // 0;
 }
 
+sub store{
+  return _read ($data_path->child("/store/qStore.q")->slurp);
+}
+
 sub _read{
   my ($q,@bind)=@_;
   my (@empty,$arr);