lib/MojoFacets/Data.pm

   1 package MojoFacets::Data;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base 'Mojolicious::Controller';
   7
   8 use Data::Dump qw(dump);
   9 use File::Slurp;
  10 use JSON;
  11
  12 sub index {
  13         my $self = shift;
  14
  15         my $path = $self->app->home->rel_dir('data');
  16         die "no data dir $path" unless -d $path;
  17
  18         opendir(my $dir, $path) || die $!;
  19         my @files =
  20                 grep { -f "$path/$_" && $_ =~ m/\.js(on)?$/ }
  21                 readdir $dir;
  22         close($dir);
  23
  24         $self->render( files => [ @files ] );
  25 }
  26
  27 our $data;
  28 our $stats;
  29
  30 sub load {
  31         my $self = shift;
  32
  33         my $path = $self->app->home->rel_file( 'data/' . $self->param('path') );
  34         die "$path $!" unless -r $path;
  35
  36         # we could use Mojo::JSON here, but it's too slow
  37         $data = from_json read_file $path;
  38
  39         foreach my $e ( @{ $data->{items} } ) {
  40                 foreach my $n ( keys %$e ) {
  41                         $stats->{$n}->{count}++;
  42                         $stats->{$n}->{number}++
  43                                 if $e->{$n} =~ m/^[-+]?([0-9]*\.[0-9]+|[0-9]+)$/;
  44                         $stats->{$n}->{array} += $#{ $e->{$n} } + 1
  45                                 if ref $e->{$n} eq 'ARRAY';
  46                 }
  47         }
  48
  49         foreach my $n ( keys %$stats ) {
  50                 next unless defined $stats->{$n}->{array};
  51                 delete $stats->{$n}->{array}
  52                         if $stats->{$n}->{array} == $stats->{$n}->{count};
  53         }
  54
  55         warn dump($stats);
  56
  57         $self->redirect_to( '/data/columns' );
  58 }
  59
  60
  61 sub columns {
  62     my $self = shift;
  63
  64     $self->render(
  65                 message => 'Select columns to display',
  66                 stats => $stats,
  67         );
  68 }
  69
  70 sub table {
  71     my $self = shift;
  72
  73         $self->redirect_to('/data/index') unless $data->{items};
  74
  75         my @columns = $self->param('columns');
  76
  77         my $order  = $self->param('order') || $columns[0];
  78         my $offset = $self->param('offset') || 0;
  79         my $limit  = $self->param('limit') || 10;
  80
  81         my @sorted = sort {
  82                 $a->{$order} cmp $b->{$order}
  83         } @{ $data->{items} };
  84
  85         @sorted = splice @sorted, $offset, $limit;
  86
  87         warn "# sorted ", dump @sorted;
  88
  89         warn "$order $offset $limit";
  90
  91         $self->render(
  92                 order => $order,
  93                 offset => $offset,
  94                 limit => $limit,
  95                 sorted => [ @sorted ],
  96                 columns => [ @columns ],
  97         );
  98
  99 }
 100
 101 1;