Release: support 'changes' method (GH#57)

metacpan · Mar 24, 2017 · 9f7e257 · 9f7e257
1 parent 9db93cc
commit 9f7e257
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 1 deletion.
diff --git a/examples/changes.pl b/examples/changes.pl
@@ -0,0 +1,9 @@
+use strict;
+use warnings;
+use MetaCPAN::Client;
+
+my $dist = shift || 'Moose';
+
+my $mcpan = MetaCPAN::Client->new();
+my $rel   = $mcpan->release($dist);
+print $rel->changes;
diff --git a/lib/MetaCPAN/Client/Release.pm b/lib/MetaCPAN/Client/Release.pm
@@ -4,8 +4,11 @@ package MetaCPAN::Client::Release;
 # ABSTRACT: A Release data object
 
 use Moo;
+use Ref::Util qw< is_hashref >;
+use JSON::MaybeXS qw< decode_json >;
 
-with 'MetaCPAN::Client::Role::Entity';
+with 'MetaCPAN::Client::Role::Entity',
+     'MetaCPAN::Client::Role::HasUA';
 
 my %known_fields = (
     scalar => [qw<
@@ -55,6 +58,15 @@ foreach my $field (@known_fields) {
 
 sub _known_fields { return \%known_fields }
 
+sub changes {
+    my $self = shift;
+    my $url  = sprintf "https://fastapi.metacpan.org/changes/%s/%s", $self->author, $self->name;
+    my $res = $self->ua->get($url);
+    return unless is_hashref($res);
+    my $content = decode_json $res->{'content'};
+    return $content->{'content'};
+}
+
 sub metacpan_url {
     my $self = shift;
     sprintf( "https://metacpan.org/release/%s/%s", $self->author, $self->name )
@@ -207,6 +219,10 @@ the count of that particular result on CPAN Testers for this release.
 
 =head1 METHODS
 
+=head2 changes
+
+Returns the Changes text for the release.
+
 =head2 metacpan_url
 
 Returns a link to the release page on MetaCPAN.