Yet Another CPAN Grep

WebService-MyJSONs ( P/PO/POLETTIX/WebService-MyJSONs-0.002.tar.gz, POLETTIX, 2022; MetaCPAN )

WebService-MyJSONs/lib/WebService/MyJSONs.pod ( view source; MetaCPAN )

JSONs - Perl SDK to consume the MyJSONs web service


=head1 VERSION

This document describes WebService::MyJSONs version 0.002.

=begin html

<a href="https://travis-ci.org/polettix/WebService-MyJSON

s">
<img alt="Build Status" src="https://travis-ci.org/polettix/WebService-MyJSONs.svg?branch=master">
</a>
<a href="https://www.perl.org/">
<img alt="Perl Version" src="https://img.shields.io/badge/p

.io/pl/WebService-MyJSONs">
<img alt="Current CPAN version" src="https://badge.fury.io/pl/WebService-MyJSONs.svg">
</a>
<a href="http://cpants.cpanauthors.org/dist/WebService-MyJSONs">
<img alt="Kwali

WebService-MyJSONs ( P/PO/POLETTIX/WebService-MyJSONs-0.002.tar.gz, POLETTIX, 2022; MetaCPAN )

WebService-MyJSONs/lib/WebService/MyJSONs.pm ( view source; MetaCPAN )

#!/usr/bin/env perl
package WebService::MyJSONs;
use 5.024000;
use warnings;
use experimental qw< signatures >;
no warnings qw< experimental::signatures >;
{ our $VERSION = '0.002' }

use Carp qw< cro


our @EXPORT_OK   = map { +"myjsons_$_" }
   qw< cmdline get get_json put put_json >;
our %EXPORT_TAGS = (all => [@EXPORT_OK]);
our $DEFAULT_ENDPOINT = 'https://www.myjsons.com';

sub code ($self, @ne

nd sub __dump

sub get ($self, $code = undef) {
   require JSON::PP;
   return JSON::PP::decode_data($self->get_json($code));
}

sub get_json ($self, $code = undef) {
   $self = $self->new unless bles