1 package MojoFacets::Code;
6 use base 'Mojolicious::Controller';
8 use Data::Dump qw(dump);
14 $self->redirect_to('/data/columns') unless $self->session('columns');
15 my $columns = { map { $_ => 1 } @{ $self->session('columns') } };
17 my $dir = $self->app->home->rel_dir('public') . '/code';
21 foreach my $full_path ( glob("$dir/*.pl") ) {
22 my $path = $full_path;
23 $path =~ s/^$dir\/*//;
25 my ( $depends, $description ) = split(/\./,$path,2);
27 my @deps = split(/,/,$depends);
29 $found += $columns->{$_} foreach @deps;
30 warn "# depends $depends $found $#deps\n";
31 next unless $found == $#deps;
33 $snippets->{$depends}->{$description} = read_file $full_path, binmode => ':utf8';
37 snippets => $snippets,