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         foreach my $name ( qw( MASTER MAX_FACETS ) ) {
  12                 if ( my $val = $self->param($name) ) {
  13                         $ENV{$name} = $val;
  14                         warn "$name = $val\n";
  15                 }
  16         }
  17
  18         $self->render;
  19 }
  20
  21 1;