ARGV-JSON

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::CPAN::Meta" : "0",
            "Test::MinimumVersion" : "0.10108",
            "Test::Pod" : "1.41",
            "Test::Spellunker" : "v0.2.7"
         }
      },
      "runtime" : {
         "requires" : {
            "JSON" : "0",
            "Tie::Handle" : "0",
            "parent" : "0",
            "perl" : "5.008005"
         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "0.98"
         }
      }
   },
   "provides" : {

META.yml  view on Meta::CPAN

    - examples
    - author
    - builder
provides:
  ARGV::JSON:
    file: lib/ARGV/JSON.pm
    version: 0.01
requires:
  JSON: 0
  Tie::Handle: 0
  parent: 0
  perl: 5.008005
resources:
  bugtracker: https://github.com/motemen/perl5-ARGV-JSON/issues
  homepage: https://github.com/motemen/perl5-ARGV-JSON
  repository: git://github.com/motemen/perl5-ARGV-JSON.git
version: 0.01

cpanfile  view on Meta::CPAN

requires 'perl', '5.008001';

requires 'parent';
requires 'JSON';
requires 'Tie::Handle';

on 'test' => sub {
    requires 'Test::More', '0.98';
};

lib/ARGV/JSON.pm  view on Meta::CPAN

            push @Data, $datum;
        }
    }

    tie *ARGV, 'ARGV::JSON::Handle';
}

package
    ARGV::JSON::Handle;
use Tie::Handle;
use parent -norequire => 'Tie::StdHandle';

sub READLINE {
    if (wantarray) {
        return splice @ARGV::JSON::Data;
    } else {
        return shift @ARGV::JSON::Data;
    }
}

1;