w_prereqs => CPAN::Meta->load_file('Dist-Foo-1.01/META.json')->effective_prereqs
old_prereqs => CPAN::Meta->load_file('Dist-Foo-1.00/META.json')->effective_prereqs
);
my @changes = $diff->diff
ndle = create_bundle('Example::Author::KENTNL');
$bundle->configure;
my @stopwords = (
qw(
JSON backend
)
);
for my $wordlist (@stopwords) {
$bundle->add_or_append_policy_field( 'Document
ERSION
version 1.000009
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::dumpphases::Role::Theme",
"interface":"role"
}
=end MetaPOD::JSON
=head1 REQUIRED METHODS
=head2 C<print_
)
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::App::Command::dumpphases",
"inherits":"Dist::Zilla::App::Command",
"interface":"class"
}
=end MetaPOD::JSON
=for html <center
en its needed, the first time its needed.
Which means it could occur as early as creating C<META.json> or it could occur as late as just before it writes the distribution
out to disk.
=back
This C<
age DBIx::Class::InflateColumn::Serializer::JSYNC;
our $VERSION = '0.002001';
# ABSTRACT: Basic JSON Object Serialization Support for DBIx::Class.
our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
use J
_END__
=pod
=encoding UTF-8
=head1 NAME
DBIx::Class::InflateColumn::Serializer::JSYNC - Basic JSON Object Serialization Support for DBIx::Class.
=head1 VERSION
version 0.002001
=head1 DESCRIPTI
tible object.
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Git::Wrapper::Plus::Versions",
"interface":"class",
"inherits":"Moo::Object"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric
use it does some magic with phase emulation, but that might be removed one day )
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Plugin::Author::KENTNL::Prereqs::Latest::Selective",
"inherits":["Moose::Object"],
"does":["Dist::Zilla::Role::PrereqSource"]
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is co
nless $assert->should( have_line => $file, qr/\A\/META\.json\z/ );
undef $ok unless $assert->should( have_line => $file, qr/\A\/MYMETA\.json\z/ );
undef $ok unless $assert->should( have_line =
ath::Class::File Path::Class::Dir ), # Path::Tiny preferred
qw( JSON JSON::XS JSON::Any ), # JSON::MaybeXS preferred
qw( Path::IsDev Path::FindDev ),
{ return 'application/vnd.travis-ci.2+json' },
);
has 'authtokens' => (
is => rw =>,
predicate => 'has_authtokens',
);
has 'json' => (
is => ro =>,
lazy
=> 1,
builder => sub {
require JSON::MaybeXS;
return JSON::MaybeXS->new();
},
);
sub _add_auth_tokens {
my ( $self, $options ) = @_;
$options = {} if not defined $options;
if ( exis
require Net::Travis::API::UA::Response;
return Net::Travis::API::UA::Response->new(
json => $self->json,
%{$result},
);
}
no Moo;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Ne
a few auxiliary files:
$SITELIB/.meta/DISTNAME-DISTVERSION/MYMETA.json
$SITELIB/.meta/DISTNAME-DISTVERSION/install.json
These files describe several things, such as dependencies
declared by
$result->status;
return if not length $result->content;
return unless my $json = $result->content_json;
return $json->{access_token};
}
sub get_authorised_ua_for {
my ( $self, $gh_
et_authorized_ua_for( <githubtoken> ) ) {
pp ( $ua->get('/users')->content_json );
}
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Net::Travis::API::Auth::GitHub",
"inherits":"Moo::
Object",
"does":"Net::Travis::API::Role::Client",
"interface":"class"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copy
nds 'HTTP::Tiny::UA::Response';
has 'json' => (
is => ro =>,
lazy => 1,
builder => sub {
require JSON::MaybeXS;
return JSON::MaybeXS->new();
},
);
sub con
e::FB_CROAK );
}
sub content_json {
my ( $self, $force ) = @_;
my ($has_force) = ( @_ > 1 );
my %whitelist = ( 'application/json' => 1 );
return unless $has_force or exists
next unless $param =~ /\Acharset=(.+)\z/msx;
$charset = $1;
}
}
return $self->json->utf8(0)->decode( $self->decoded_content($charset) );
}
no Moo;
1;
__END__
=pod
=encoding UT
e::Client;
our $VERSION = '0.002001';
# ABSTRACT: Anything that fetches from Travis and returns JSON data
our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
use Moo::Role qw( has );
has
TF-8
=head1 NAME
Net::Travis::API::Role::Client - Anything that fetches from Travis and returns JSON data
=head1 VERSION
version 0.002001
=head1 ATTRIBUTES
=head2 C<http_engine>
A L<< C<Net::Tr
1.0
{
"namespace":"Net::Travis::API::Role::Client",
"interface":"role"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <kentnl@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is co
Bootstrap> >>|Dist::Zilla::Role::Bootstrap >>>
=head1 ATTRIBUTES
=head2 C<dir>
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Plugin::Bootstrap::ShareDir::Dist",
"interface":"clas
mpatible object
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Git::Wrapper::Plus::Refs",
"interface":"class",
"inherits":"Moo::Object"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent Fredric <k
pecify an alternative set in code.
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Path::FindDev",
"interface":"exporter"
}
=end MetaPOD::JSON
=head1 EXAMPLE USE-CASES
Have you ever found you
N
version 0.002001
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Net::Travis::API",
"interface":"class",
"inherits":"Moo::Object"
}
=end MetaPOD::JSON
=head1 DEVELOPMENT
This code is h
thor::KENTNL');
$bundle->configure;
my @stopwords = (
qw(
ci api travis api API GitHub URI JSON URIs
)
);
for my $var (@stopwords) {
$bundle->add_or_append_policy_field( 'Documentation::P
step
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Git::Wrapper::Plus::Ref::Branch",
"interface":"class",
"inherits":"Git::Wrapper::Plus::Ref"
}
=end MetaPOD::JSON
=head1 AUTHOR
Kent F
r C<run> phases of your dist. ( For that, you'll need C<Test::File::ShareDir> ).
=begin MetaPOD::JSON v1.1.0
{
"namespace":"Dist::Zilla::Plugin::Bootstrap::ShareDir::Module",
"interface":"cl
ass",
"does":"Dist::Zilla::Role::Bootstrap",
"inherits":"Moose::Object"
}
=end MetaPOD::JSON
=head1 USAGE
[Bootstrap::lib]
[Bootstrap::ShareDir::Module]
Foo::Bar = shares/foo_