我有一个情况,在子类中,我需要引用在父类中定义的子例程,我需要将其传递给其他将执行它们的类。因此,我写了以下示例模块来进行测试。
package Parent1;
sub new {
my ($class, $arg_hash) = @_;
my $self = bless $arg_hash, $class;
return $self;
}
sub printHello{
print "Hello\n";
}
sub printNasty{
print "Nasty\n";
}
1;
package Child1;
use base Parent1;
sub new {
my ($class, $arg_hash) = @_;
my $self = bless $arg_hash, $class;
return $self;
}
sub testFunctionReferences{
my ($self) = @_;
# Case 1: Below 2 lines of code doesn't work and produces error message "Not a CODE reference at Child1.pm line 18."
#my $parent_hello_reference = \&$self->SUPER::printHello;
#&$parent_hello_reference();
# Case 2: Out of below 2 lines of code, 1st line executes the function and produces output of "Hello\n" but 2nd line doesn't work and produces error message "Not a CODE reference at Child1.pm line 23."
#my $parent_hello_reference2 = \$self->SUPER::printHello;
#&$parent_hello_reference2();
# Case 3: does not work either. Says "Undefined subroutine &Child1::printNasty called at Child1.pm line 27"
#my $parent_nasty_reference = \&printNasty;
#&$parent_nasty_reference();
# Case 4: works. prints "World\n" as expected
#my $my_own_function_reference = \&printWorld;
#&$my_own_function_reference();
# Case 5: works. prints "Hello\n" and "Nasty\n" as expected
#$self->printHello();
#$self->SUPER::printNasty();
# Case 6: does not work produces error "Undefined subroutine &Child1::printHello called at Child1.pm line 38"
#printHello();
return;
}
sub printWorld{
print "World\n";
}
#!/usr/bin/perl
use Child1;
my $child = Child1->new({});
$child->testFunctionReferences();
所以我的问题是:
与情况1一样,获得对父子例程的引用的正确语法是什么?
使用继承时,如何像情况6一样直接调用父函数?在perl中甚至可能吗?
当情况5有效时,为什么不进行情况6?
任何见解均表示赞赏。谢谢
如果printHello
是子例程,请使用
my $sub = \&Parent::printHello;
如果printHello
是方法,请使用
# This line must appear inside of the Child package.
my $sub = sub { $self->SUPER::method(@_) };
如果要引用代码,则需要一个子例程来引用,这将创建一个子例程。
在两种情况下,您都可以使用
&$sub();
要么
$sub->();
(我找到了后者,但在其他方面它们是等效的。)
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句