Question

我注意到一些Perl模块使用基于类的结构，但不管理任何数据。该类仅用于访问其中的方法，仅此而已。

考虑以下示例：

Class.pm

package Class;

use Moose;

sub do_something {
    print "Hi!\n";
}

1;

test.pl

use Class;

# Instantiate an object from the class
my $obj = Class->new();

$obj->do_something();

在此示例中，您可以看到首先实例化该类的实例，然后从创建的对象中调用该方法。

可以像这样实现相同的最终结果：

Module.pm

package Module;

use strict;
use warnings;

sub do_something {
    print "Hi!\n";
}

1;

test.pl

use Module;

Module::do_something();

我想知道为什么人们使用第一种方法编写模块，并且如果它提供了一些好处。对我来说，似乎它增加了一个额外的步骤，因为为了使用这些方法，你首先需要实例化一个类的对象。

我不明白为什么人们会像这样编程，除非它有一些我没有看到的好处。

Answer 1

一个好处是继承。如果现有类支持->样式子例程调用，则可以子类化现有类的行为（这是一个较弱的语句，而不是说该类是面向对象的，正如我在上面的评论中所说的那样）

package Class;
sub new { bless \__PACKAGE__,__PACKAGE__ }
sub do_something { "foo" }
sub do_something_else { 42 }
1;


package Subclass;
@Sublcass::ISA = qw(Class);
sub new { bless \__PACKAGE__,__PACKAGE__ }
sub do_something_else { 19 }


package main;
use feature 'say';
$o1 = Class->new;
$o2 = Subclass->new;

say $o1->do_something;          # foo
say $o2->do_something;          # foo
say $o1->do_something_else;     # 42
say $o2->do_something_else;     # 19

这种技术的一个突出用途是UNIVERSAL类，所有受祝福的引用都隐式地子类化。 UNIVERSAL命名空间中定义的方法通常将包名称作为第一个参数（或者将第一个参数中的引用解析为其包名称），返回一些包信息。 DB类也做了类似的事情（尽管DB包也保持了很多状态）。

您何时以及为何使用没有数据成员的课程？

1 个答案: