Yet Another CPAN Grep

CPANPLUS-Internals-Source-MetaCPAN ( B/BI/BINGOS/CPANPLUS-Internals-Source-MetaCPAN-0.10.tar.gz, BINGOS, 2017; MetaCPAN )

CPANPLUS-Internals-Source-MetaCPAN/lib/CPANPLUS/Internals/Source/MetaCPAN/Tie.pm ( view source; MetaCPAN )

   Class => 'CPANPLUS', Style => 'gettext';

use CPANPLUS::Internals::Source::MetaCPAN::HTTP;
use JSON::PP ();

require Tie::Hash;
use vars qw[@ISA];
push @ISA, 'Tie::StdHash';

sub TIEHASH {
    my $

urn unless $status eq '200';
      return unless $str = $http->body;
      eval { $href = JSON::PP::decode_json( $str ); };
      return unless $href and keys %$href;
    }

    ### expand author if n


          return unless $str = $http->body;
          my $dref;
          eval { $dref = JSON::PP::decode_json( $str ); };
          return unless $dref and keys %$dref;
          ( $href->{dist_file