在Perl中,子类在基类中别名的方法是什么？

发布时间：2020-12-15 21:33:32 所属栏目：大数据来源：网络整理

导读：我只是讨厌如何将 CGI::Application的CGI对象的访问者称为查询. 我希望我的实例类能够使用名为cgi的访问器来获取与我的CGI :: Application子类的当前实例相关联的CGI对象. 这是我所做的一个独立的例子： package My::Hello;sub hello { my $self =shift; pri

我只是讨厌如何将 CGI::Application的CGI对象的访问者称为查询.

我希望我的实例类能够使用名为cgi的访问器来获取与我的CGI :: Application子类的当前实例相关联的CGI对象.

这是我所做的一个独立的例子：

package My::Hello;

sub hello {
    my $self =shift;
    print "Hello @_n";
}

package My::Merhaba;

use base 'My::Hello';

sub merhaba {
    goto sub { shift->hello(@_) };
}

package main;

My::Merhaba->merhaba('StackOverflow');

这是正常工作,因为我认为应该和我看不到任何问题(比如说,如果我想继承我的:: Merhaba：子类不需要知道任何关于merhaba).

写得更好/更正确吗？

sub merhaba {
    my $self = shift;
    return $self->hello(@_);
}

使用goto &NAME为了混淆方法名称的目的有哪些优点/缺点？有没有更好的办法？

注意：如果你有希望回应goto是邪恶的,不要这样做,因为Perl的goto的使用与你所想的不同.

解决方法

您使用goto的方法是正确的,因为它将确保来电者/想法等保持正常工作.

我会设置这样的新方法：

sub merhaba {
    if (my $method = eval {$_[0]->can('hello')}) {
        goto &$method
    } else { 
        # error code here
    }
}

或者如果您不想使用继承,则可以使用调用代码将新方法添加到现有包中：

*My::Hello::merhaba = &;My::Hello::hello;  
   # or you can use = My::Hello->can('hello');

那么你可以打电话：

My::Hello->merhaba('StackOverflow');

并获得所需的结果.

无论哪种方式都可以工作,继承路由更易于维护,但是将方法添加到现有的包将导致更快的方法调用.

编辑：

正如在评论中指出的那样,有几种情况是,glob赋值与继承有关,所以如果有疑问,请使用第一种方法(在子包中创建一个新方法).

迈克尔·卡曼(Michael Carman)建议将这两种技术组合成自我重新定义的功能：

sub merhaba {
    if (my $method = eval { $_[0]->can('hello') }) {
        no warnings 'redefine';
        *merhaba = $method;
        goto &merhaba;
    }
    die "Can't make 'merhaba' an alias for 'hello'";
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!