Yet Another CPAN Grep

Docker-Construct ( C/CA/CAMTAUXE/Docker-Construct-1.0.tar.gz, CAMTAUXE, 2020; MetaCPAN )

Docker-Construct/lib/Docker/Construct.pm ( view source; MetaCPAN )

   )

=cut

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(construct);

use Carp;
use JSON;
use Scalar::Util qw(openhandle);
use File::Spec::Functions qw(splitpath catfile);
use File::Path

ot be reported on stderr.

=item * include_config

If true, include the image's config json file as F<config.json> in the
root of the extracted filesystem.

=back
=cut

sub construct {
    # Parse par

est.json)"
        unless grep {$_ eq 'manifest.json'} @imagefiles;

    # Extract image manifest.
    my %manifest = %{
        decode_json(
            _read_file_from_tar($image, 'manifest.json')