Example::Module~0.01

parse_carton_lock.pl

#!/usr/bin/env perl
use strict;
use warnings;
use feature qw/say/;
use File::Slurp  qw/read_file/;
use JSON;

my $fname  = shift @ARGV || "./carton.lock";
my $carton = decode_json( read_file($fname) );

for my $module (sort keys %{ $carton->{modules} }) {
    my $desc = $carton->{modules}->{$module};
    say join "~", $module, $desc->{version};
}