From 1ec8d3fb574f1635b1494172958cd601d54d82c4 Mon Sep 17 00:00:00 2001
From: Athos Ribeiro <athoscribeiro@gmail.com>
Date: Wed, 6 Jan 2016 11:14:33 -0200
Subject: [PATCH] add subroutine to return copr link

---
 lib/CoprStatus.pm |  9 +++++++--
 t/app.t           |  6 +++++-
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/lib/CoprStatus.pm b/lib/CoprStatus.pm
index fcd5349..390af1b 100644
--- a/lib/CoprStatus.pm
+++ b/lib/CoprStatus.pm
@@ -7,14 +7,19 @@ use LWP::UserAgent;
 
 $ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
 
+sub copr_monitor_url {
+  my ( $user, $repo ) = @_;
+  return "http://copr.fedoraproject.org/api/coprs/$user/$repo/monitor/";
+}
+
 sub copr_info {
   my $ua = LWP::UserAgent->new;
   $ua->timeout(300);
   $ua->env_proxy;
   $ua->ssl_opts(SSL_verify_mode => 0x00);
 
-  my $result_v4 = $ua->get("http://copr.fedoraproject.org/api/coprs/softwarepublico/v4/monitor/");
-  my $result_v5 = $ua->get("http://copr.fedoraproject.org/api/coprs/softwarepublico/v5/monitor/");
+  my $result_v4 = $ua->get(copr_monitor_url("softwarepublico", "v4"));
+  my $result_v5 = $ua->get(copr_monitor_url("softwarepublico", "v5"));
 
   my $json = JSON->new->allow_nonref;
 
diff --git a/t/app.t b/t/app.t
index 016cc26..55ba830 100644
--- a/t/app.t
+++ b/t/app.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 use Test::More;
 
-BEGIN { use_ok('CoprStatus') }
+BEGIN { use_ok('CoprStatus'); }
 
 my $info = CoprStatus::copr_info();
 ok(ref($info), 'HASH');
@@ -27,4 +27,8 @@ like($table, qr/danger|success/m);
 my $html = CoprStatus::build_html();
 like($html, qr/SPB Copr Status/m);
 
+my $monitor_url = copr_monitor_url("foo", "bar");
+my $test_url =  "http://copr.fedoraproject.org/api/coprs/foo/bar/monitor/";
+is($monitor_url, $test_url);
+
 done_testing();
--
libgit2 0.21.2