[dh-make-perl] 01/02: create debian/upstream/metadata in 'make' mode

[Damyan Ivanov]

This is an automated email from the git hooks/post-receive script.

dmn pushed a commit to branch master
in repository dh-make-perl.

commit 43649dcf5a181e574aca14d98ff05bdb0f98d1ff
Author: Damyan Ivanov <dmn at debian.org>
Date:   Sun Oct 19 14:18:50 2014 +0000

    create debian/upstream/metadata in 'make' mode
---
 lib/DhMakePerl/Command/Packaging.pm | 35 +++++++++++++++++++++++++++++++++++
 lib/DhMakePerl/Command/make.pm      |  2 +-
 2 files changed, 36 insertions(+), 1 deletion(-)

diff --git a/lib/DhMakePerl/Command/Packaging.pm b/lib/DhMakePerl/Command/Packaging.pm
index 772b6dd..efbf99d 100644
--- a/lib/DhMakePerl/Command/Packaging.pm
+++ b/lib/DhMakePerl/Command/Packaging.pm
@@ -1565,6 +1565,41 @@ sub unquote {
     return $unquoted;
 }
 
+=item create_upstream_metadata
+
+Populates F<debian/upstream/metadata> with information from F<META>.
+
+=cut
+
+sub create_upstream_metadata {
+    my $self = shift;
+    my $meta = $self->meta;
+
+    return unless %$meta;
+
+    require YAML::XS;
+
+    my %upstream;
+
+    $upstream{"Archive"}           = 'CPAN';
+    $upstream{"Name"}              = $meta->{name};
+    $upstream{"Contact"}           = join( ', ', @{ $meta->{author} } );
+    # $upstream{"Homepage"}        = $meta->{resources}->{homepage};
+    $upstream{"Bug-Database"}      = $meta->{resources}->{bugtracker}->{web};
+    $upstream{"Bug-Submit"}        = $meta->{resources}->{bugtracker}->{mailto};
+    $upstream{"Repository"}        = $meta->{resources}->{repository}->{url};
+    $upstream{"Repository-Browse"} = $meta->{resources}->{repository}->{web};
+
+    foreach ( keys %upstream ) {
+        delete $upstream{$_} unless defined $upstream{$_};
+    }
+
+    my $dir = File::Spec->catdir( $self->main_dir, 'debian', 'upstream' );
+
+    mkdir($dir);
+    YAML::XS::DumpFile( File::Spec->catfile( $dir, 'metadata' ), \%upstream );
+}
+
 =back
 
 =cut
diff --git a/lib/DhMakePerl/Command/make.pm b/lib/DhMakePerl/Command/make.pm
index 88df4cb..77f2903 100644
--- a/lib/DhMakePerl/Command/make.pm
+++ b/lib/DhMakePerl/Command/make.pm
@@ -209,7 +209,7 @@ sub execute {
     $self->create_copyright( $self->debian_file('copyright') );
     $self->update_file_list( docs => $self->docs, examples => $self->examples );
 
-
+    $self->create_upstream_metadata;
 
     if ( $self->cfg->recursive ) {
         $already_done //= {};

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/dh-make-perl.git