小编Mar*_*ark的帖子

我有许多不同的网站,我从中下载数据并按摩到其他格式(使用Perl)在工作中使用,这些都是从一个Perl脚本运行的,如下所示:

#! /usr/bin/perl
use strict;

use My::Package1;
use My::Package2;

my $p1 = My::Package1->new;
$p1->download;

my $p2 = My::Package2->new;
$p2->download;

等等等等.目前每个My::Package都是自己的包装; 它不会从基础包或任何东西继承.我打算重新编写它们Moose,我希望每次添加新软件包时都不必编辑运行下载的Perl脚本,可能有办法找到从基础软件包继承的软件包,并且然后在循环中实例化每个并进行下载,有点像:

#! /usr/bin/perl
use strict;

for my $pname (packages_that_inherit_from("My::Package")) {
    my $package = $pname->new;
    $package->download;
}

它可能是什么,或者是什么？

TIA