Yet Another CPAN Grep

OPM-Maker-Command-sopm ( P/PE/PERLSRVDE/OPM-Maker-Command-sopm-1.2.0.tar.gz, PERLSRVDE, 2023; MetaCPAN )

OPM-Maker-Command-sopm/lib/OPM/Maker/Command/sopm.pm ( view source; MetaCPAN )

n metadata

use Carp;
use File::Find::Rule;
use File::Basename;
use File::Spec;
use IO::File;
use JSON;
use List::Util qw(first max);
use Path::Class ();
use XML::LibXML;
use XML::LibXML::PrettyPrint;

b usage_desc {
    return "opmbuild sopm [--config <json_file>] [--cvs] <path_to_module>";
}

sub opt_spec {
    return (
        [ 'config=s', 'JSON file that provides all the metadata' ],
        [

} ) {
        my @json_files = File::Find::Rule->file->name( '*.json' )->in( $args->[0] || '.' );

        @json_files > 1 ?
            $self->usage_error( 'found more than one json file, please spec