distribution: support rt and github methods

metacpan · Dec 8, 2016 · 44d6da7 · 44d6da7
1 parent 6791362
commit 44d6da7
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 3 deletions.
diff --git a/lib/MetaCPAN/Client/Distribution.pm b/lib/MetaCPAN/Client/Distribution.pm
@@ -39,6 +39,9 @@ foreach my $field ( @known_fields ) {
 
 sub _known_fields { return \%known_fields }
 
+sub rt     { $_[0]->bugs->{rt}     || {} }
+sub github { $_[0]->bugs->{github} || {} }
+
 1;
 
 __END__
@@ -62,3 +65,13 @@ Hash-Ref.
 =head2 river
 
 Hash-Ref.
+
+=head1 METHODS
+
+=head2 rt
+
+Returns 'bugs.rt' hash ref (defaults to {}).
+
+=head2 github
+
+Returns 'bugs.github' hash ref (defaults to {}).
diff --git a/t/api/distribution.t b/t/api/distribution.t
@@ -2,15 +2,22 @@
 
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More tests => 9;
 use Test::Fatal;
+use Ref::Util qw< is_hashref >;
 
 use t::lib::Functions;
 
 my $mc = mcpan();
 can_ok( $mc, 'distribution' );
 
-my $dist = $mc->distribution('Moose');
+my $dist = $mc->distribution('Business-ISBN');
 isa_ok( $dist, 'MetaCPAN::Client::Distribution' );
 can_ok( $dist, 'name' );
-is( $dist->name, 'Moose', 'Correct distribution' );
+is( $dist->name, 'Business-ISBN', 'Correct distribution' );
+
+can_ok( $dist, 'rt' );
+ok( is_hashref( $dist->rt ), 'rt returns a hashref' );
+
+can_ok( $dist, 'github' );
+ok( is_hashref( $dist->github ), 'github returns a hashref' );