: localhost
Content-Type: application/json
{
"method":"create"
}
## response
HTTP/1.1 201 Created
Content-Type: application/json;charset=UTF-8
Cache-Control: no-stor
Type: application/json
{
"method":"read",
"id":"81c8feb9b54f632823fafea71966b5f89ad5cc92"
}
## response
HTTP/1.1 200 OK
Content-Type: application/json;charset=UTF-8
cation/json
{
"method":"update",
"id":"81c8feb9b54f632823fafea71966b5f89ad5cc92",
"type":"hotp"
}
## response
HTTP/1.1 200 OK
Content-Type: application/json;charse
bugtracker rt cpants kwalitee diff irc mailto
metadata placeholders metacpan RJBS FLORA dist ini json username yml
=for Pod::Coverage metadata munge_files
=head1 NAME
Dist::Zilla::Plugin::Authorit
larations in your perl files:
our $AUTHORITY = 'cpan:APOCAL';
Your metadata ( META.yml or META.json ) will have an entry looking like this:
x_authority => 'cpan:APOCAL'
=head1 ATTRIBUTES
=head2
:Lite::Error;
# default error
# HTTP/1.1 400 Bad Request
# Content-Type: application/json;charset=UTF-8
# Cache-Control: no-store
# Pragma: no-cache
#
# {
# "error":
->throw() if ...
# custom error
# HTTP/1.1 404 Not Found
# Content-Type: application/json;charset=UTF-8
# Cache-Control: no-store
# Pragma: no-cache
#
# {
# "error":
oken from its JSON representation (e.g. as returned
# from instance metadata of an instance that is assigned an IAM role
my $token = VM::EC2::Security::Credentials->new_from_json($json);
# open a
ew_from_json {
my $class = shift;
my ($data,$endpoint) = @_;
eval "require JSON; 1" or die "no JSON module installed: $@"
unless JSON->can('decode');
my $hash = JSON::from_json($data)
n release
=item *
L<Dist::Zilla::Plugin::Bitbucket::Meta>
Add Bitbucket repo info to META.{yml,json}
=back
=head2 Configuration
Configure git with your Bitbucket credentials:
$ git config --gl
fo on release
use Moose;
use HTTP::Tiny 0.050;
use MIME::Base64 3.14;
use JSON::MaybeXS 1.002006 qw( encode_json decode_json );
extends 'Dist::Zilla::Plugin::Bitbucket';
with 'Dist::Zilla::Role::Aft
c " . MIME::Base64::encode_base64("$login:$pass", '');
$headers->{'content-type'} = "application/json";
# We use the v1.0 API to update
my $url = 'https://bitbucket.org/api/1.0/repositories/' . $r
Bitbucket repository info" );
my $response = $http->request( 'PUT', $url, {
content => encode_json( $params ),
headers => $headers
});
if ( ! $response->{'success'} ) {
$self->log( ["Error:
end
my $json = $mailjet->send('apikey');
All "post" methos are called on send_post
my $data = ( 'name' =>'Name' , 'DateType'=> "str", 'NameSpace' : 'static' );
my $json = $mailjet-
are called on send_put
my $data = ( 'title' => 'Update title of the Newsletter' );
my $json = $mailjet->send_put('newsletter/123' , %data);
=cut
=head1 AUTHOR
Anwesh <kanishkablack@gmx.c
already, and will have the following format
=over
=item id
identifier of the user
=item data
json data, in the following form:
{
_id: "njfranck",
login: "njfranck",
name: "Nicolas F
uccess) {
if ($response->header('content-type') eq 'application/json') {
my $content = from_json($response->decoded_content);
$error = $content->{error};
_perlscript_ok($options);
_from_perlmodule_ok($options);
_from_metayml_ok($options);
_from_metajson_ok($options);
_check_for_license_file($options);
if (not $options->{strict}) {
$test->ok($pa
om_metajson_ok
#######
sub _from_metajson_ok {
my $options = shift;
my $test = Test::Builder->new;
if (-e 'META.json') {
try {
my $meta_json = Parse::CPAN::Meta->load_file('META.json');
or = $meta_json->{author}[0];
my @guess_json
= _hack_guess_license_from_meta(@{$meta_json->{license}});
my @guess_json_meta_name;
my @guess_json_url;
for (0 .. $#guess_json) {
pus
d from the API webpage.
For the moment the results obtained from the API are in pure HTML, XML or JSON.
=head2 Search functionalities
=head3 Search Protein
Search proteins matching the query or sea
$np->search_cv(-query => "colon", -filter => "keyword");
=head3 Format:
Output format maybe in JSON (default), HTML or XML.
@result = $np->search_protein(-query => "kinase", -filter => "disease"
_info(-query => "NX_P13051", -retrieve => "expression");
=head3 Format:
Output format maybe in JSON (default), HTML or XML.
@result = $np->get_protein_info(-query => "NX_P13051", -retrieve => "ex
end
my $json = $mailjet->send('apikey');
All "post" methos are called on send_post
my $data = ( 'name' =>'Name' , 'DateType'=> "str", 'NameSpace' : 'static' );
my $json = $mailjet-
actmetadata' , %data);
All "put" methos are called on send_put
my $data = ( 'title' => 'Update title of the Newsletter' );
my $json = $mailjet->send_put('newsletter/123' , %data);
=cut
uery} = undef;
$self->{_filter} = undef;
$self->{_chromosome} = undef;
$self->{_format} = "json";
bless($self, $class);
return $self;
}
sub search_protein() {
my $self = shift;
my %p
ane;
use Moo;
use Types::Standard qw( Bool );
use URI::Template;
extends 'Catmandu::Importer::getJSON';
our $AUTHORITY = 'cpan:JONASS';
our $VERSION = '0.001';
has api => (
is => 'ro',
def
',
lazy => 1,
builder => sub {
URI::Template->new( $_[0]->api . '{/topic,reference}?format=json' );
}
);
has '+from' => (
is => 'ro',
lazy => 1,
builder => \&_build_from,
);
has d
ies Parltrack for entities.
=head1 CONFIGURATION
This importer extends L<Catmandu::Importer::getJSON>, so it can be configured
with options C<agent>, C<timeout>, C<headers>, C<proxy>, and C<dry>. Ad
ER::ignores_guts($type) if $type ne "manifest";
return <<'HERE'
^_
^\.
^MYMETA\.yml$
^MYMETA\.json$
^_build
^Build$
^blib
^MANIFEST\.
^README\.pod$
# Avoid version control files.
\bRCS\b
\bCVS\b
Nile::Deserializer - Data structures deserializer
=head1 SYNOPSIS
$data = $app->thaw->json($encoded);
$data = $app->thaw->yaml($encoded);
$data = $app->thaw->storable($encoded);
l($encoded);
# also deserialize method is an alias for freeze
$data = $app->deserialize->json($encoded);
=head1 DESCRIPTION
Nile::Deserializer - Data structures deserializer
=cut
use Nile
~~~~~~~~~~~~~~~~~
=head2 json()
$encoded = qq!{"lname":"elsheshtawy","fname":"ahmed","phone":{"home":"02222444","mobile":"012222333"}}!;
$data = $app->thaw->json($encoded);
# return
S_NUMERIC_VALUE
do not process numeric value.
use JSON;
use Data::Recursive::Encode;
my $data = { int => 1 };
is encode_json( Data::Recursive::Encode->encode_utf8($data) ); #=> '{"
int":"1"}'
local $Data::Recursive::Encode::DO_NOT_PROCESS_NUMERIC_VALUE = 1;
is encode_json( Data::Recursive::Encode->encode_utf8($data) ); #=> '{"int":1}'
=back
=head1 METHODS
=over 4
=i
me=>"elsheshtawy", phone=>{mobile=>"012222333", home=>"02222444"}};
$encoded = $app->freeze->json($data);
$encoded = $app->freeze->yaml($data);
$encoded = $app->freeze->storable($data);
->xml($data);
# also serialize method is an alias for freeze
$encoded = $app->serialize->json($data);
=head1 DESCRIPTION
Nile::Serializer - Data structures Serializer
=cut
#use Nile::Base
~~~~~~~~~~~~~~~~~
=head2 json()
$data = {fname=>"ahmed", lname=>"elsheshtawy", phone=>{mobile=>"012222333", home=>"02222444"}};
$encoded = $app->freeze->json($data);
# returns:
type_text {
my ($self, $content_type) = @_;
return $content_type =~ /(\bx(?:ht)?ml\b|text|json|javascript)/;
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub result
~~~~
=head2 Json
$json = $app->freeze->Json;
$encoded = $json->utf8->encode($data);
Returns L<JSON> object.
=cut
has 'Json' => (
is => 'rw',
isa => 'JSON',
la
zy => 1,
default => sub {
load JSON;
JSON->new;
}
);
=head2 Yaml
$yaml = $app->freeze->Yaml;
Returns L<YAML> object.
=cut
has 'Yaml' => (
is
efault => sub {
load YAML;
YAML->new;
}
);
=head2 Storable
$json = $app->freeze->Storable;
Returns "Storable" string. L<Storable> deos not suppot new method.
=c