从超类调用已知的子类函数？答案

【问题标题】：Calling a known subclass function from superclass?从超类调用已知的子类函数？
【发布时间】：2013-06-24 00:55:51
【问题描述】：

我不知道这是否可能，但我想从 Perl 中调用一个已知的子类函数。我需要一些“通用”的东西来称呼更具体的东西。我的超类将假定它的子类的所有类都定义了一个已知函数。我猜这类似于Java“实现”。

例如，假设我有以下代码：

GenericStory.pm

package Story::GenericStory;

sub new{
   my $class = shift;
   my $self = {};

   bless $self, class;
   return $self;
}

sub tellStory {
   my $self;

   #do common things
   print "Once upon a time ". $self->specifics();
}

#

Story1.pm

package Story::Story1;
use base qw ( Story::GenericStory );

sub new {
   my $class = shift;
   my $self = $class->SUPER::new(@_);

   return $self;
}

sub specifics {
   my $self;
   print " there was a dragon\n";
}

#

Story2.pm

package Story::Story2;
use base qw ( Story::GenericStory );

sub new {
   my $class = shift;
   my $self = $class->SUPER::new(@_);

   return $self;
}

sub specifics {
   print " there was a house\n";
}

MAIN

my $story1 = Story::Story1->new();
my $story2 = Story::Story2->new();

#Once upon a time there was a dragon.
$story1->tellStory();


#Once upon a time there was a house.
$story2->tellStory();

编辑：

代码运行良好。我只是忘记了“我的 $self = shift;”在tellStory()中；

【问题讨论】：

use warnings; 应该明白这一点

标签： perl class oop subclass superclass

【解决方案1】：

您的代码可以正常工作（模数微不足道的错误）；你可能想在超类中添加：

sub specifics {
    require Carp;
    Carp::confess("subclass does not implement required interface");
}

或类似的。

【讨论】：

您还希望返回具体的字符串，而不是打印它。如果你打印它，它会在“从前”之前打印

【解决方案2】：

你想要的很像一个trait（或者在Perl中：一个role）。

特征是面向对象系统的一个相对较新的补充。它们类似于接口，因为它们可以要求继承类来实现某些方法，但它们类似于抽象超类，因为它们可以自己提供某些方法。

Moose 对象系统允许角色。可以将一个类声明为with 某个角色。这是您使用MooseX::Declare 编写的示例：

use MooseX::Declare;

role Story::StoryTeller{
    requires 'specifics';

    method tellStory() {
        print "Once upon a time ";
        $self->specifics();
    }
}

class Story::Story1 with Story::StoryTeller {
    method specifics() {
        print " there was a dragon\n";
    }
}

class Story::Story2 with Story::StoryTeller {
    method specifics() {
        print " there was a house\n";
    }
}

my $story1 = Story::Story1->new();
my $story2 = Story::Story2->new();

#Once upon a time there was a dragon.
$story1->tellStory();
#Once upon a time there was a house.
$story2->tellStory();

这不是继承：$story1->isa("Story::StoryTeller") 是假的，但它确实这个角色：$story1->DOES("Story::StoryTeller") 是真的。

对于每个DOES某个角色的类，该类的一个实例can该角色的所有方法。因此，$story1->can("tellStory") 为真，相反，对于每个 Story::StoryTeller 实例，$instance->can("specifics") 将为真。

角色不能单独实例化。

【讨论】：