view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "homepage" : "https://github.com/sysread/App-Tailor",
      "repository" : {
         "type" : "git",
         "url" : "https://github.com/sysread/App-Tailor.git",
         "web" : "https://github.com/sysread/App-Tailor"
      }
   },
   "version" : "0.02",
   "x_generated_by_perl" : "v5.30.0",
   "x_serialization_backend" : "Cpanel::JSON::XS version 4.17"
}

lib/App/Tailor.pm  view on Meta::CPAN

=head1 VERSION

version 0.02

=head1 SYNOPSIS

  #-------------------------------------------------------------------------------
  # file: my-filter.pl
  #-------------------------------------------------------------------------------
  use App::Tailor;
  use JSON::XS qw(decode_json);

  # ignore lines containing /ping
  ignore qr/\/ping/;

  # parse JSON-encoded lines
  modify qr/^{/ => sub{
    my $data = decode_json $_;
    my $msg  = $data->{message};
    my $ts   = $data->{timestamp};
    my $pri  = $data->{priority};