genereate integer uuid

diff --git a/angular-server.pl b/angular-server.pl
index 0a6cd75..58e07fd 100755 (executable)
--- a/angular-server.pl
+++ b/angular-server.pl
@@ -2,9 +2,11 @@
 
 use Mojolicious::Lite;
 use Data::Dump qw(dump);
-use Time::HiRes qw(time);
+use Time::HiRes;
 use Clone qw(clone);
 
+sub new_uuid { Time::HiRes::time * 100000 }
+
 # based on
 # http://docs.getangular.com/REST.Basic
 # http://angular.getangular.com/data
@@ -125,7 +127,7 @@ any [ 'post' ] => '/data/:database/:entity' => sub {
        my $json = $self->req->json;
        my $id = $json->{'$id'} # XXX we don't get it back from angular.js
                || $json->{'_id'}  # so we use our version
-               || Time::HiRes::time(); # FIXME UUID?
+               || new_uuid;
        warn "## $id body ",dump($self->req->body, $json);
        die "no data" unless $data;