view release on metacpan or  search on metacpan

script/update-fatpack-snippets  view on Meta::CPAN

    my %args = @_;

    my $filenames = $args{filenames};

    my $envres = envresmulti();

    for my $filename (@$filenames) {
        unless (-f $filename) {
            log_warn("File %s does not exist, skipped", $filename);
            $envres->add_result(404, "File does not exist", {item_id=>$filename});
            next;
        }
        my $content = File::Slurper::read_text($filename);
        my $orig_content = $content;

        my $code_gen_snippet = sub {
            my @mod_pms = @_;

            my $res = Module::FatPack::fatpack_modules(
                module_names => \@mod_pms,