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         my $dir = $self->app->home->rel_dir('public') . '/code';
  15
  16         my $snippets;
  17
  18         foreach my $full_path ( glob("$dir/*.pl") ) {
  19                 my $path = $full_path;
  20                 $path =~ s/^$dir\/*//;
  21                 my ( $column, $description ) = split(/\./,$path,2);
  22                 $snippets->{$column}->{$description} = read_file $full_path;
  23         }
  24
  25         $self->render(
  26                 snippets => $snippets,
  27         );
  28 }
  29
  30 1;