MojoX-Dispatcher-FilterChain/lib/MojoX/FilterChain/DetectLang.pm

   1 package MojoX::FilterChain::DetectLang;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base 'MojoX::FilterChain::Base';
   7
   8 use MojoX::FilterChain::Constants;
   9
  10 __PACKAGE__->attr('languages', default => sub {[]});
  11 __PACKAGE__->attr('stash_key', default => 'language');
  12
  13 sub run {
  14     my $self = shift;
  15     my ( $c ) = @_;
  16
  17     if (my $path = $c->tx->req->url->path) {
  18         my $part = $path->parts->[ 0 ];
  19
  20         if ( $part && grep { $part eq $_ } @{ $self->languages } ) {
  21
  22             shift @{ $path->parts };
  23
  24             $c->stash->{ $self->stash_key } = $part;
  25         }
  26     }
  27
  28     return NEXT;
  29 }
  30
  31 1;
  32 __END__
  33
  34 =head1 NAME
  35
  36 MojoX::FilterChain::DetectLang - Detect client language filter
  37
  38 =head1 SYNOPSIS
  39
  40     $chain
  41       ->add(MojoX::FilterChain::DetectLang->new(languages => [qw/ en de /]));
  42
  43     ...
  44
  45     # /
  46     $chain->process($c);
  47     $c->stash->{language}; # undef
  48
  49     # /en
  50     $chain->process($c);
  51     $c->stash->{language}; # en
  52
  53     # /de/path
  54     $chain->process($c);
  55     $c->stash->{language}; # de
  56
  57 =head1 DESCRIPTION
  58
  59 L<MojoX::FilterChain::DetectLang> is a filter for detecting client language
  60
  61 =head1 METHODS
  62
  63 L<MojoX::FilterChain::DetectLang> inherits all methods from
  64 L<MojoX::FilterChain::Base> and implements the following ones.
  65
  66 =head2 C<languages>
  67
  68     Languages that your website can handle.
  69
  70 =head2 C<stash_key>
  71
  72     Stash variable name where language will be stored.
  73
  74 =cut