C<get_valid_remote_name>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Role::Git::RemoteName",
"interface":"role"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpan. = $conf->{color} // "yellow";
my $format = $conf->{format} // "json";
while ( my ( $plugin, $results ) = each %$args ) {
$plugin =~ s/.+::Agent:://;
ed: no (defalut: yellow)
format:
type: str
required: no (defalut: json)
=head1 SEE ALSO
L<App::MadEye>, L<HipChat API|https://www.hipchat.com/docs/api/method/rooms/mecurrent C<HEAD>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Role::Git::LocalRepository::CurrentBranch",
"interface":"role"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kedate>
Provides a L</remote_update> method which updates a L</remote> in L</git>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Plugin::Git::Remote::Update::BeforeBuild",
"interface:Role::Git::RemoteName",
"Dist::Zilla::Role::Git::Remote::Update"
]
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is co
=head2 C<remote_branch>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Role::Git::Remote::Check",
"interface":"role"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpa> and L</remote_branch> and
asserts L</remote_branch> is not ahead of L</branch>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Plugin::Git::Remote::Check::BeforeBuild",
"interface"le::Git::Remote::Check",
"Dist::Zilla::Role::Git::Remote::Update"
]
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is co
=head2 C<remote_name>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Role::Git::Remote::Update",
"interface":"role"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpalocal_branches>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Role::Git::LocalRepository::LocalBranches",
"interface":"role"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kedate>
Provides a L</remote_update> method which updates a L</remote> in L</git>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Plugin::Git::Remote::Update",
"interface":"class",
:Role::Git::RemoteName",
"Dist::Zilla::Role::Git::Remote::Update"
]
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is co> and L</remote_branch> and
asserts L</remote_branch> is not ahead of L</branch>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Plugin::Git::Remote::Check",
"interface":"class",
le::Git::Remote::Check",
"Dist::Zilla::Role::Git::Remote::Update"
]
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is colog_fatal>
=head2 C<git>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Role::Git::RemoteNames",
"interface":"role"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpanpackage Net::Duowan::DNS::Zones;
use 5.006;
use warnings;
use strict;
use Carp qw/croak/;
use JSON;
use base 'Net::Duowan::DNS::Common';
use vars qw/$VERSION/;
$VERSION = '1.2.0';
sub new {
my package Net::Duowan::DNS::Owner;
use 5.006;
use warnings;
use strict;
use Carp qw/croak/;
use JSON;
use base 'Net::Duowan::DNS::Common';
use vars qw/$VERSION/;
$VERSION = '1.2.0';
sub new {
my package Net::Duowan::DNS::Common;
use 5.006;
use warnings;
use strict;
use Carp qw/croak/;
use JSON;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use vars qw/$VERSION/;
$VERSION = '1.2.0'eq = POST $url, [ %args ];
my $res = $ua->request($req);
if ($res->is_success ) {
return from_json( $res->decoded_content );
} else {
croak $res->status_line;
}
}
1;
=head2 C<remote_name>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Role::Git::Remote::Branch",
"interface":"role"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpapackage Net::Duowan::DNS::Records;
use 5.006;
use warnings;
use strict;
use Carp qw/croak/;
use JSON;
use base 'Net::Duowan::DNS::Common';
use vars qw/$VERSION/;
$VERSION = '1.2.0';
sub new {
mless (ref $records) {
croak "records must be an array reference";
}
$records = to_json($records);
my $psp = $self->{psp};
my $token = $self->{token};
my $act = 'bulk_rec_ntraits => [qw/NoGetopt/]
);
has "+$_" => ( traits => [qw/NoGetopt/] )
for qw/api_key base_url ua json items list_since/;
has "+$_" => (documentation => "Set $_. Can also be set in ~/.pocketrc")
for ad1 VERSION
version 0.04
=head1 SYNOPSIS
my $client = Net::HTTP::Spore->new_from_spec('api.json');
# foo=bar and blah=baz will be passed on each request.
$client->enable('DefaultParam if ( env_true('AUTHOR_TESTING') or env_true('RELEASE_TESTING') ) {
my $prereqs = parse_meta_json()->effective_prereqs;
my $reqs = $prereqs->requirements_for( 'develop', 'requires' );
my t;
{
$WebService::Pocket::VERSION = '0.003';
}
use Data::Dumper;
use Moose;
use HTTP::Tiny;
use JSON;
use Try::Tiny;
use WebService::Pocket::Item;
# ABSTRACT: Client for the Pocket api (http://getp => 'Str' );
has ua => ( is => 'ro', default => sub { HTTP::Tiny->new } );
has json => ( is => 'ro', default => sub { JSON->new->canonical } );
has items => ( is => 'ro', default => sub { {} } );
hasms = {};
$params->{$_} = $items->[$_] for ( 0 .. @$items - 1 );
$params = { new => $self->json->encode( $params ) };
$self->_send( $params );
# Get the new items
my $all_items =