在 Perl 中从基类调用子类方法

Question

我有一个名为 Mobile::Auth 的模块来授权并重定向到登录页面。我想访问 Mobile::Auth 中 Site::Auth 的所有方法，但方法 redirect_to_login_page 除外，我有一个专门针对我的方法的方法。 移动::身份验证。

我做了类似的事情...

package Mobile:Auth;
use base Site::Auth;

sub redirect_to_login_page{
  #get_my_mobile_specific
}
1;

在我的 Mason 组件文件中我放入了..

use Mobile::Auth;
Mobile::Auth::authorize($args);

这是我的 Site::Auth 看起来像

package Site::Auth;

....

   sub authorize {
     #.....
     if (!$authorize) {
       redirect_to_login_page($args);
     }
    }
    sub redirect_to_login_page{ 
     # redirect to the login page  
    }
    1;

授权工作，但我的问题是当我调用 authorize 时来自 Mobile::Auth 的 方法应该调用 Site::Auth::authorization 方法和 Mobile::Auth::redirect_to_login_page而不是 Site::Auth::redirect_to_login_page

伙计们，任何人都可以给我一个如何做到这一点的线索。提前致谢。

Answer 1

Mobile::Auth 没有授权子项。

Mobile::Auth::authorize($args)

考虑到你所展示的，应该死。

正如 Daxim 指出的，您没有使用方法语法，因此没有调用 perl 的方法分派。您有两种选择来解决此问题。

第一种方法是调用您真正想要的子方法，

Site::Auth::authorize($args)

然后是

Mobile::Auth::redirect_to_login_page

但是，如果您尝试执行此 OO，而且我认为您是，您可以尝试包方法（这比对象方法不太常见，但是至少正确）：

package Site::Auth;
#....
sub authorize {
    my ( $self, @args ) = @_;

    my $authorized = $self->validate_credentials(@args);

    if( !$authorized ) {
        $self->redirect_to_login_page(@args);
    }
}
sub redirect_to_login_page{ 
    my ( $self, @args ) = @_;
 # redirect to the login page 
}
sub validate_credentials {
    my ( $self, @args ) = @_;
    # This is what you had in #..... before
    return $authorized
}
1;

package Mobile:Auth;
use base 'Site::Auth';

sub redirect_to_login_page {
    my ( $self, @args ) = @_;
    #...
}
1;

### in Mason
use Mobile::Auth;
Mobile::Auth->authorize($args);

请注意一些更改：Site::Auth::authorize() 现在期望 $self 为第一个参数，Mobile::Auth 现在使用 ->; 调用授权。运算符，即方法调用语法。 :: 和 -> 之间的区别这里很大。首先，当你用->调用一个函数时，我们称它为“方法”而不是“子”。其次，该方法始终传递“$self”作为第一个参数。对于包方法，$self 只是一个包含包名称的字符串。对于对象，$self 是对该对象的引用。第三，使用您在此处尝试使用的 OO 层次结构来分派方法。

现在您会注意到，Mobile::Authorize 定义了自己的redirect_to_login_page()，但没有定义validate_credentials() 或authorize() 子函数。 （严格来说，您不必为接下来的内容考虑 validate_credentials() ，但您应该这样做，所以我这样做了。）

它是如何工作的？ Mobile::Auth->authorize() 沿着链向上移动，直到找到 Site::Auth->authorize，然后调用它。 Site::Auth->authorize 将 $self 获取为“Mobile::Auth”。它调用 Mobile::Auth->validate_credentials，perl 最终将其分派为 Site::Auth->validate_credentials。然后它调用 Mobile::Auth->redirect_to_login_page，它实际上是在 Mobile::Auth 包中定义的，因此从那里调用它。

另外，您确实需要阅读http://perldoc.perl.org/ perlobj.html 从头到尾。这应该为您提供 Perl 中对象的基础知识。

Answer 2

一个问题是您需要引用父类：

use base 'Site::Auth';

如果您有 use strict; 存在，那么您的代码就会出错:)

顺便说一句...您提到了 Moose 在您的标签中，但代码示例未使用它。

/I3az/