add perl_from_meta from magiea for dependency retrieving · Pull Request !17 · src-openEuler/perl-generators

当前，perl-generator 包含四种不同的文件属性依赖关系生成器，但是没有一种能够直接从上游的 META.json/META.yml 这种现成的结构化数据中分析依赖关系的。比如[`perl-AnyEvent/META.yml`](https://metacpan.org/release/MLEHMANN/AnyEvent-7.17/source/META.yml)
```
---
abstract: unknown
author:
  - unknown
build_requires:
  ExtUtils::MakeMaker: '0'
configure_requires:
  Canary::Stability: '0'
  ExtUtils::MakeMaker: '6.52'
dynamic_config: 1
generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150001'
license: unknown
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: AnyEvent
no_index:
  directory:
    - t
    - inc
recommends:
  Async::Interrupt: '1'
  EV: '4'
  Guard: '1.02'
  JSON: '2.09'
  JSON::XS: '2.2'
  Net::SSLeay: '1.33'
  Task::Weaken: '0'
version: 7.17
```
从这个yml文件能够很清楚的看出，这个包在运行时建议用户安装`Async::Interrupt`、`EV`、`Guard`、`JSON`、`JSON::XS`、`Net::SSLeay`、`Task::Weaken`这几个不同的模块。当前没有任何一种途径，能够通过RPM仓库向用户提供这种指示。

为此，引入 Mageia 中的工具，以便能够分析上游自带的 META.json/META.yml 自动生成RPM的`Requires`和`Recommends`标签。

增加了本PR所涉及的工具后，`perl-AnyEvent`的构建结果如下：
```
Requires: perl(AnyEvent)
Requires: perl(AnyEvent::DNS)
Requires: perl(AnyEvent::IO)
Requires: perl(AnyEvent::Log)
Requires: perl(AnyEvent::Loop)
Requires: perl(AnyEvent::Socket)
Requires: perl(AnyEvent::Util)
Requires: perl(B)
Requires: perl(Carp)
Requires: perl(Errno)
Requires: perl(Exporter)
Requires: perl(List::Util)
Requires: perl(Net::SSLeay)
Requires: perl(POSIX)
Requires: perl(Scalar::Util)
Requires: perl(Socket)
Requires: perl(Time::HiRes)
Requires: perl(base)
Requires: perl(overload)
Requires: perl-libs
Recommends: perl(Async::Interrupt) >= 1
Recommends: perl(EV) >= 4
Recommends: perl(Guard) >= 1.02
Recommends: perl(JSON) >= 2.09
Recommends: perl(JSON::XS) >= 2.2
Recommends: perl(Net::SSLeay) >= 1.33
Recommends: perl(Task::Weaken)
```
由于Recommends本身是非强制依赖关系，仓库里没有这些包也没有关系。不过这提供了一种补充仓库缺失包的自动化途径。

另一个非常具有现实意义的例子是 `perl-App-FatPacker`，[当前这个包在 spec 里硬编码了 Requires](https://gitee.com/src-openeuler/perl-App-FatPacker/blob/master/perl-App-FatPacker.spec):
```
Requires: perl(Cwd) perl(File::Path) perl(File::Spec::Functions) perl(File::Spec::Unix)
Requires: perl(Getopt::Long)
```
但是实际上，这五个依赖关系在 [META.yml](https://metacpan.org/release/MSTROUT/App-FatPacker-0.010008/source/META.yml) 里写得很清楚：
```
requires:
  B: '1.01'
  Cwd: '0'
  File::Copy: '0'
  File::Find: '0'
  File::Path: '0'
  File::Spec::Functions: '0'
  File::Spec::Unix: '0'
  Getopt::Long: '0'
  perl: '5.008000'
```

分析上游自带的 META.json/META.yml 自动生成依赖关系，比开发者手动维护 spec 要更加可靠。

后续需要对现有的 perl-* 模块逐一进行分析，如果上游实际上有提供 META.json/META.yml，但没有打包进来的，需要修改 spec 文件，将其放到 %doc 中，以便进行识别。

src-openEuler/perl-generators .gitee-modal { width: 500px !important; }

搜索帮助

src-openEuler/perl-generators