App-pq

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.024, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: App-pq
requires:
  JSON::MaybeXS: '0'
  Try::Tiny: '0'
  perl: v5.10.0
version: '1'
x_generated_by_perl: v5.32.1
x_serialization_backend: 'YAML::Tiny version 1.73'
x_spdx_expression: 'Artistic-1.0-Perl OR GPL-1.0-or-later'

Makefile.PL  view on Meta::CPAN

  },
  "DISTNAME" => "App-pq",
  "EXE_FILES" => [
    "scripts/pq"
  ],
  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.010000",
  "NAME" => "App::pq",
  "PREREQ_PM" => {
    "JSON::MaybeXS" => 0,
    "Try::Tiny" => 0
  },
  "VERSION" => 1,
  "test" => {
    "TESTS" => ""
  }
);


my %FallbackPrereqs = (
  "JSON::MaybeXS" => 0,
  "Try::Tiny" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}

delete $WriteMakefileArgs{CONFIGURE_REQUIRES}

dist.ini  view on Meta::CPAN

version          = 1
main_module      = lib/App/pq.pm

[ExecDir]
dir              = scripts

[@Basic]

[Prereqs]
perl             = v5.10.0
Try::Tiny        = 0
JSON::MaybeXS    = 0

scripts/pq  view on Meta::CPAN

#!/usr/bin/perl
use v5.10;
use warnings;
use strict;
use Try::Tiny;
use JSON::MaybeXS qw( decode_json );
use Data::Dumper;

my $code = $ARGV[0] || 'print Dumper($j)';

my $stdin = do { local $/; <STDIN> };

my $j = try { decode_json($stdin) }
    catch { die "Error: Malformed JSON: $_\n" };