为什么在mojolicious中分离路由和控制器操作?

use*_*481 6 perl mojolicious

我正在阅读Mojolicious :: Guides :: Growing的部分,它告诉你如何将Mojolicious :: Lite发展成一个"组织良好"的cpan-uploadable应用程序.首先,它告诉您将M :: L应用程序拆分为启动脚本和应用程序类.

package MyApp;
use Mojo::Base 'Mojolicious';

use MyUsers;

sub startup {
  my $self = shift;

  # ...auth stuff omitted...

  my $r = $self->routes;
  $r->any('/' => sub {
    my $self = shift;

    my $user = $self->param('user') || '';
    my $pass = $self->param('pass') || '';
    return $self->render unless $self->users->check($user, $pass);

    $self->session(user => $user);
    $self->flash(message => 'Thanks for logging in.');
    $self->redirect_to('protected');
  } => 'index');

  $r->get('/protected' => sub {
    my $self = shift;
    return $self->redirect_to('index') unless $self->session('user');
  });

  $r->get('/logout' => sub {
    my $self = shift;
    $self->session(expires => 1);
    $self->redirect_to('index');
  });
}

1;
Run Code Online (Sandbox Code Playgroud)

这对我来说很有意义.但接着说它可以进一步将这个应用程序类重构为带有动作的控制器类,并且应用程序类本身可以简化为路由信息:

package MyApp::Login;
use Mojo::Base 'Mojolicious::Controller';

sub index {
  my $self = shift;

  my $user = $self->param('user') || '';
  my $pass = $self->param('pass') || '';
  return $self->render unless $self->users->check($user, $pass);

  $self->session(user => $user);
  $self->flash(message => 'Thanks for logging in.');
  $self->redirect_to('protected');
}

sub protected {
  my $self = shift;
  return $self->redirect_to('index') unless $self->session('user');
}

sub logout {
  my $self = shift;
  $self->session(expires => 1);
  $self->redirect_to('index');
}

1;

package MyApp;
use Mojo::Base 'Mojolicious';

use MyUsers;

sub startup {
  my $self = shift;

  # ...auth stuff omitted...

  my $r = $self->routes;
  $r->any('/')->to('login#index')->name('index');
  $r->get('/protected')->to('login#protected')->name('protected');
  $r->get('/logout')->to('login#logout')->name('logout');
}

1;
Run Code Online (Sandbox Code Playgroud)

我不明白为什么这优于路由和动作混合的"混合"版本,因为现在为了在控制器中使用redirect_to()的动作之间重定向,你需要在不同的路由信息​​中查看文件,如果你想更改网址,你必须在两个不同的文件而不是一个文件中.这个:

  $r->get('/protected' => sub {
    my $self = shift;
    return $self->redirect_to('index') unless $self->session('user');
  });
Run Code Online (Sandbox Code Playgroud)

变成:

sub protected {
  my $self = shift;
  return $self->redirect_to('index') unless $self->session('user');
}

$r->get('/protected')->to('login#protected')->name('protected');
Run Code Online (Sandbox Code Playgroud)

在两个不同的文件中有4次"受保护"一词(虽然我不确定名称("受保护")的用途).

顺便说一句,在Web开发方面,我是一个完全新手.

tem*_*ire 10

它并不优越; 相反,它是不同的.

一旦您超越一个开发人员,将您的应用程序放在一个文件中就不再是一个好处; 你最终会踩到彼此的脚趾.即使你是唯一的开发者,也不容易跟踪1000多行文件中的位置.此外,当您拥有多条路线时,能够查看一个文件并一目了然地确定所有路线非常有用,更不用说100多条路线了.

此外,当路由更改时,您不必更改控制器操作中的重定向URL.如果您正在使用命名路线,Mojolicious将为您完成工作.

  • OOhhhh,我没有意识到redirect_to('foo')将'foo'解释为名称而不是路径'/ foo',并且M :: L get/post/any/etc函数自动创建名称.这一切都很有意义,谢谢. (2认同)