Yet Another CPAN Grep

PLN-PT ( S/SM/SMASH/PLN-PT-0.008.tar.gz, SMASH, 2017; MetaCPAN )

PLN-PT/lib/PLN/PT.pm ( view source; MetaCPAN )

ace for the http://pln.pt web service
$PLN::PT::VERSION = '0.008';
use strict;
use warnings;

use JSON::XS;
use CHI;
use Digest::MD5 qw/md5_base64/;
use LWP::UserAgent;
use Encode;
use utf8::all;

sub

turn undef;
    }
  }

  return $data if ($opts->{output} and $opts->{output} eq 'raw');
  return JSON::XS->new->decode($data);
}

sub _get {
  my ($self, $url, $opts) = @_;

  my $key = $url . '-' .

turn undef;
    }
  }

  return $data if ($opts->{output} and $opts->{output} eq 'raw');
  return JSON::XS->new->decode($data);
}

sub _cat {
  my ($self, @args) = @_;

  my @parts = ($self->{url});