lib/MojoFacets/Config.pm

   1 package MojoFacets::Config;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base 'Mojolicious::Controller';
   7
   8 sub index {
   9         my $self = shift;
  10
  11         my @config = (qw(
  12                 MASTER
  13                 MAX_FACETS
  14                 PROFILE
  15         ));
  16
  17         foreach my $name ( @config ) {
  18                 my $val = $self->param($name);
  19                 if ( defined $val ) {
  20                         $ENV{$name} = $val;
  21                         warn "$name = $val\n";
  22                 }
  23         }
  24
  25         $self->render(
  26                 config => \@config,
  27         );
  28 }
  29
  30 1;