lib/Blog/Plugin/I18N/URI.pm

   1 package Blog::Plugin::I18N::URI;
   2
   3 use strict;
   4
   5 sub uri_for {
   6     my ( $c, @subpath ) = @_;
   7
   8     if ( @subpath && $subpath[0] ne '/' ) {
   9         @subpath = grep { defined $_ && $_ ne '' } @subpath;
  10
  11         unless ( $subpath[ 0 ] && $subpath[ 0 ] =~ s/^\/+//xo ) {
  12             my $action = $c->req->action;
  13             $action =~ s/^\/+//xo;
  14             unshift @subpath, $action;
  15         }
  16
  17         unshift @subpath, ( '/' . $c->language );
  18     }
  19
  20     return $c->NEXT::uri_for( @subpath );
  21 }
  22
  23 1;
  24