Add the Release download_url to Document::File

metacpan · Apr 17, 2015 · d514cfa · d514cfa
1 parent de4b47a
commit d514cfa
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 9 deletions.
diff --git a/lib/MetaCPAN/Document/File.pm b/lib/MetaCPAN/Document/File.pm
@@ -113,6 +113,19 @@ has module => (
     default         => sub { [] },
 );
 
+=head2 download_url
+
+B<Required>
+
+Download URL of the release
+
+=cut
+
+has download_url => (
+    is         => 'ro',
+    required   => 1
+);
+
 =head2 date
 
 B<Required>

diff --git a/lib/MetaCPAN/Model/Release.pm b/lib/MetaCPAN/Model/Release.pm
@@ -248,15 +248,16 @@ sub _build_files {
                     indexed      => $self->metadata->should_index_file($fpath)
                     ? 1
                     : 0,
-                    local_path => $child,
-                    maturity   => $self->maturity,
-                    metadata   => $self->metadata,
-                    name       => $filename,
-                    path       => $fpath,
-                    release    => $self->name,
-                    stat       => $stat,
-                    status     => $self->status,
-                    version    => $self->version,
+                    local_path   => $child,
+                    maturity     => $self->maturity,
+                    metadata     => $self->metadata,
+                    name         => $filename,
+                    path         => $fpath,
+                    release      => $self->name,
+                    download_url => $self->document->download_url,
+                    stat         => $stat,
+                    status       => $self->status,
+                    version      => $self->version,
                 }
             );