lib/MojoFacets/Code.pm

   1 package MojoFacets::Code;
   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
  11 sub index {
  12         my $self = shift;
  13
  14         $self->redirect_to('/data/columns') unless $self->session('columns');
  15
  16         my $dir = $self->app->home->rel_dir('public') . '/code';
  17
  18         my $snippets;
  19
  20         foreach my $full_path ( glob("$dir/*.pl") ) {
  21                 my $path = $full_path;
  22                 $path =~ s/^$dir\/*//;
  23                 my ( $column, $description ) = split(/\./,$path,2);
  24                 $snippets->{$column}->{$description} = read_file $full_path;
  25         }
  26
  27         $self->render(
  28                 snippets => $snippets,
  29         );
  30 }
  31
  32 1;