我应该如何将文本文件库与我的模块捆绑？

Question

我在要构建的模块中的Resources目录中具有以下结构：

resources
|-- examples
    |-- Arrays
    |   |-- file  
    |-- Lists
        |-- file1
        |-- file2

我有以下代码来收集和处理这些文件：

use v6.d;
unit module Doc::Examples::Resources;

class Resource {
    has Str $.name;
    has Resource @.resources;
    has Resource %.resource-index;

    method resource-names() {
        @.resources>>.name.sort
    }

    method list-resources() {
        self.resource-names>>.say;
    }

    method is-resource(Str:D $lesson) {
        $lesson ~~ any self.resource-names;
    }

    method get-resource(Str:D $lesson) {
        if !self.is-resource($lesson) {
            say "Sorry, that lesson does not exist.";
            return;
        }
        return %.resource-index{$lesson};
    }

}

class Lesson is Resource {
    use Doc::Parser;
    use Doc::Subroutines;
    has IO $.file;

    method new(IO:D :$file) {
        my $name = $file.basename;
        self.bless(:$name, :$file)
    }

    method parse() {
        my @parsed = parse-file $.file.path;
        die "Failed parse examples from $.file" if @parsed.^name eq 'Any';
        for @parsed -> $section {
            my $heading = $section<meta>[0] || '';
            my $intro = $section<meta>[1] || '';
            say $heading.uc ~ "\n" if $heading && !$intro;
            say $heading.uc if $heading && $intro;
            say $intro ~ "\n" if $intro;
            for $section<code>.Array {
                die "Failed parse examples from $.file, check it's syntax." if $_.^name eq 'Any';
                das |$_>>.trim;
            }
        }
    }
}

class Topic is Resource {
    method new(IO:D :$dir) {
        my $files = dir $?DISTRIBUTION.content("$dir");
        my @lessons;
        my $name = $dir.basename;
        my %lesson-index;
        for $files.Array -> $file {
            my $lesson = Lesson.new(:$file);
            push @lessons, $lesson;
            %lesson-index{$lesson.name} = $lesson;
        }
        self.bless(:$name, resources => @lessons, resource-index => %lesson-index);
    }

}

class LocalResources is Resource is export {
    method new() {
        my $dirs = dir $?DISTRIBUTION.content('resources/examples');
        my @resources;
        my %resource-index;
        for $dirs.Array -> $dir {
            my $t = Topic.new(:$dir);
            push @resources, $t;
            %resource-index{$t.name} = $t;
        }
        self.bless(:@resources, :%resource-index)
    }

    method list-lessons(Str:D $topic) {
        self.get-resource($topic).list-lessons;
    }

    method parse-lesson(Str:D $topic, Str:D $lesson) {
        self.get-resource($topic).get-resource($lesson).parse;
    }
}

它有效。但是，我被告知这是不可靠的，并且不能保证我的$ files = dir $？distribution.content（“ $ dir”）;在模块为后是否有效安装或将继续在未来工作。

那么，哪些更好的选择是将文本文件库与我可以由模块访问和找到的模块捆绑在一起？

Answer 1

资源下的文件目录将始终作为键 ％？资源编译时变量如果您在meta6.json文件中以这种方式声明它们：

"resources": [
    "examples/Array/file",
]

等等。

Answer 2

我已经解决了一个解决方案。正如Jjmerelo指出的那样，Meta6.json文件包含资源列表，如果您使用逗号，则将自动为您生成资源列表。

从模块的代码中，可以通过$？分发变量访问资源列表，例如：

my @resources = $？distraction.meta＆lt; resources＆gt;

从此处，我可以建立我的资源列表。

我发现的内容的一个注释是：$？分发变量无法从测试脚本访问。必须将其放置在lib分布目录中的模块中，并导出。