Started with basic today stats

lib/Pear/LocalLoop.pm

@@ -147,6 +147,7 @@ sub startup {
   $api->post('/edit')->to('api-api#post_edit');
   $api->post('/fetchuser')->to('api-api#post_fetchuser');
   $api->post('/user-history')->to('api-user#post_user_history');
+  $api->post('/stats')->to('api-stats#post_today');
 
   my $api_admin = $api->under('/')->to('api-admin#auth');
 

lib/Pear/LocalLoop/Controller/Api/Stats.pm

@@ -0,0 +1,22 @@
+package Pear::LocalLoop::Controller::Api::Stats;
+use Mojo::Base 'Mojolicious::Controller';
+
+sub post_today {
+  my $c = shift;
+
+  my $user = $c->stash->{api_user};
+
+  my $today_rs = $user->transactions->today_rs;
+  my $today_sum = $today_rs->get_column('value')->sum;
+  my $today_count = $today_rs->count;
+
+  return $c->render( json => {
+    success => Mojo::JSON->true,
+    today_sum => $today_sum,
+    today_count => $today_count,
+    today_avg => $today_sum / $today_count,
+  });
+
+}
+
+1;

lib/Pear/LocalLoop/Schema/ResultSet/Transaction.pm

@@ -0,0 +1,29 @@
+package Pear::LocalLoop::Schema::ResultSet::Transaction;
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::ResultSet';
+
+use DateTime;
+
+sub today_rs {
+  my ( $self ) = @_;
+
+  my $dtf = $self->result_source->schema->storage->datetime_parser;
+  return $self->search({
+    submitted_at => {
+      -between => [
+        $dtf->format_datetime(DateTime->today()),
+        $dtf->format_datetime(DateTime->today()->add( days => 1 )),
+      ],
+    },
+  });
+}
+
+sub today_for_user {
+  my ( $self, $user ) = @_;
+  return $self->search({ buyer_id => $user->id })->today_rs;
+}
+
+1;

lib/Test/Pear/LocalLoop.pm

@@ -65,6 +65,16 @@ sub register_customer {
     ->json_is('/success', Mojo::JSON->true)->or($self->dump_error);
 }
 
+sub register_organisation {
+  my ( $self, $args ) = @_;
+
+  $args->{usertype} = 'organisation';
+
+  $self->framework->post_ok('/api/register' => json => $args)
+    ->status_is(200)->or($self->dump_error)
+    ->json_is('/success', Mojo::JSON->true)->or($self->dump_error);
+}
+
 sub login {
   my $self = shift;
   my $args = shift;
@@ -76,4 +86,19 @@ sub login {
   return $self->framework->tx->res->json->{session_key};
 }
 
+sub gen_upload {
+  my ( $self, $args ) = @_;
+
+  my $file = {
+    content        => '',
+    filename       => 'text.jpg',
+    'Content-Type' => 'image/jpeg',
+  };
+
+  return {
+    json => Mojo::JSON::encode_json($args),
+    file => $file,
+  };
+}
+
 1;