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                 if ( my $val = $self->param($name) ) {
  19                         $ENV{$name} = $val;
  20                         warn "$name = $val\n";
  21                 }
  22         }
  23
  24         $self->render(
  25                 config => \@config,
  26         );
  27 }
  28
  29 1;