Yet Another CPAN Grep

Message-Rules ( D/DI/DIEDERICH/Message-Rules-1.150170.tar.gz, DIEDERICH, 2015; MetaCPAN )

Message-Rules/lib/Message/Rules.pm ( view source; MetaCPAN )

rnings;
use Message::Match qw(mmatch);
use Message::Transform qw(mtransform);
use File::Find;
use JSON;

sub new {
    my $class = shift;
    my $self  = {};
    bless ($self, $class);
    return $sel

_from_directory: $@\n" if $@;
    my $conf;
    eval {
        $conf = decode_json $contents or die 'failed to decode_json';
    };
    return unless $conf;
    if(not ref $conf) {
#        die "Messa

       open my $fh, '>', $path or die "failed to open $path for write: $!";
            print $fh JSON->new->canonical(1)->pretty(1)->encode($message);
            close $fh or die "failed to close $p