mpresets

#!/usr/bin/env perl

BEGIN {

    if ((exists $ENV{MUTATE_HOME}) and (-d $ENV{MUTATE_HOME})) {
        system "$ENV{MUTATE_HOME}/mbootstrap";
    }
    else {
        die
          "You must set MUTATE_HOME to the directory where Mutate is located.\n";
    }
}

use 5.018_000;
use strict;
use warnings;

no if $] >= 5.018, warnings => "experimental::smartmatch";
no if $] >= 5.018, warnings => "experimental::lexical_subs";

use Getopt::Long qw/:config no_ignore_case /;
use Pod::Usage;
use File::Find;
use File::Basename;


my %obj;

GetOptions(

    'help|?|h' => \$obj{options}->{'help'},
    'event|e'   => \$obj{options}->{'event'},
);

pod2usage "\nmpresets, Display Mutate Presets\n"
  if defined $obj{options}->{help}
  or not $ARGV[0];

unless (defined $obj{options}->{'event'}) {

    find(\&process, "$ENV{MUTATE_HOME}/presets/");

    sub process {

        if (basename($File::Find::name) =~ /(\w+).(\w+)/) {
            push @{$obj{presets}->{$1}}, $2;
        }
    }

    for my $command (@ARGV) {

        for (keys %{$obj{presets}}) {

            if ($command eq $_) {

                say $_;
                say "\t$_" for @{$obj{presets}->{$_}};
            }
        }
    }

}
else {

    use Mojo::UserAgent;

    my $ua = Mojo::UserAgent->new;

    my $tx =
      $ua->get("https://localhost:8443/mpresets" => {DNT => 1} => json =>
          {arguments => "@ARGV"});

    say $tx->res->body;
}


exit(0);

__END__

=head1 SYNOPSIS

<command> [options]

Options:

    -h, -?, --help  This help / usage screen...
    -e, --event     Submit this invocation to Mutate's Event Loop.
    -o, --output    Future: Format console output as JSON, YAML, XML

Example: mpresets mreader mwriter

=cut