ings;
use autodie;
use 5.010001;
use Carp qw();
use Graph;
use IO::Zlib;
use IPC::Cmd qw();
use JSON qw();
use List::Util;
use Path::Tiny qw();
use Statistics::Descriptive qw();
use YAML::Syck qw(); $opt->{outfile} ) {
$opt->{outfile} = Path::Tiny::path( $args->[0] )->absolute . ".cover.json";
}
}
sub execute {
my ( $self, $opt, $args ) = @_;
# make paths absolute before we $tempdir->child("meta.cover.json")
->spew( JSON::to_json( $meta_of, { pretty => 1, canonical => 1, } ) );
$tempdir->child("meta.cover.json")->copy( $opt->{outfile} );