Yet Another CPAN Grep

WWW-Mechanize-Script ( R/RE/REHSACK/WWW-Mechanize-Script-0.101.tar.gz, REHSACK, 2014; MetaCPAN )

WWW-Mechanize-Script/bin/check_web2.pl ( view source; MetaCPAN )

ecifications

=head1 VERSION

version 0.101

=head1 SYNOPSIS

  $ check_web2 --file domain1/site1.json
  $ check_web2 --file domain2/site1.yml
  # for compatibility
  $ check_web2 --file domain1/site2

WWW-Mechanize-Script ( R/RE/REHSACK/WWW-Mechanize-Script-0.101.tar.gz, REHSACK, 2014; MetaCPAN )

WWW-Mechanize-Script/lib/WWW/Mechanize/Script/Util.pm ( view source; MetaCPAN )


=item -

qw(check_host_app_one)

=item -

qw(check_host/app_one)

=item -

qw(check_host_app_one.json)

=item -

qw(check_host/app_one.yml)

=item -

qw(check_splunk_[1-5])

=item -

qw(splunk/test*)

WWW-Mechanize-Script ( R/RE/REHSACK/WWW-Mechanize-Script-0.101.tar.gz, REHSACK, 2014; MetaCPAN )

WWW-Mechanize-Script/lib/WWW/Mechanize/Script.pm ( view source; MetaCPAN )

 => 'yes',    # check LWP::UA param
	    },
	},
    },
    script_dirs => [qw(/old/wtscripts /new/json_scripts)],
    summary => {
        template => "[% CODE_NAME; IF MESSAGES.size > 0 %] - [% MESSA

WWW-Mechanize-Script ( R/RE/REHSACK/WWW-Mechanize-Script-0.101.tar.gz, REHSACK, 2014; MetaCPAN )

WWW-Mechanize-Script/bin/wtscript2json.pl ( view source; MetaCPAN )

;
use warnings;

# PODNAME: wtscript2json
# ABSTRACT: convert read configuration into JSON

use v5.10.1;

use File::Slurp qw(write_file);
use Getopt::Long;
use JSON ();
use List::MoreUtils qw(zip);
us

opts{"input-files"} }, @{ $opts{"output-files"} } )
  : ();
my %cfg = load_config();

my $coder = JSON->new();
_ARRAY( $cfg{wtscript_extensions} )
  and Config::Any::WTScript->extensions( @{ $cfg{wtsc

t and previous loaded config ...
        my $json = $coder->pretty->encode( $scripts->{ $script_files[0] } );
        write_file( $in2out{$filename}, $json );
    }
    else
    {
        while ( my (