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