view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "web" : "https://github.com/perlpunk/App-Spec-p5/issues"
      },
      "repository" : {
         "type" : "git",
         "url" : "git://github.com/perlpunk/App-Spec-p5.git",
         "web" : "https://github.com/perlpunk/App-Spec-p5"
      }
   },
   "version" : "v0.15.0",
   "x_generated_by_perl" : "v5.26.1",
   "x_serialization_backend" : "Cpanel::JSON::XS version 4.37",
   "x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
}

dist.ini  view on Meta::CPAN

version = v0.15.0

[@Filter]
-bundle = @Basic
-remove = GatherDir
option = for_basic

[AutoPrereqs]
skip = Swim
skip = Data::Dump$
skip = JSON::XS
[Prereqs]
perl = 5.10.0
List::Util = 1.33
YAML::PP = 0.015
[OverridePkgVersion]
[MetaProvides::Package]
[Test::Compile]
filename = t/00.compile.t

[CopyFilesFromBuild]

lib/App/Spec/Plugin/Format.pm  view on Meta::CPAN

    my $res = $run->response;
    my $outputs = $res->outputs;
    for my $out (@$outputs) {
        next unless $out->type eq 'data';
        my $content = $out->content;
        if ($format eq 'YAML') {
            $content = encode_utf8 YAML::PP::Dump($content);
        }
        elsif ($format eq 'JSON') {
            require JSON::XS;
            my $coder = JSON::XS->new->ascii->pretty->allow_nonref;
            $content = encode_utf8 $coder->encode($content) . "\n";
        }
        elsif ($format eq 'Table' and is_arrayref($content)) {
            require Text::Table;
            my $header = shift @$content;
            my $tb = Text::Table->new( @$header );
            $tb->load(@$content);
            $content = encode_utf8 "$tb";
        }
        elsif ($format eq 'Data::Dump') {