Merge META works - provide cpanfile

Author: H.Merijn Brand - Tux

ChangeLog

@@ -1,9 +1,10 @@
-0.90    - 25 May 2019, H.Merijn Brand
+0.90    - 17 Jun 2019, H.Merijn Brand
     * It's 2018
     * Update links
     * It's 2019
     * Update to Devel::PPPort-3.52
     * Tested with perl-5.30.0
+    * Provide cpanfile
 
 0.89    - 14 Sep 2017, H.Merijn Brand
     * Implement dictionary introspection in HLI

MANIFEST

@@ -9,6 +9,7 @@ ppport.h
 README
 Unify.h
 Unify.xs
+cpanfile
 lib/DBD/Unify.pm
 lib/DBD/Unify/TypeInfo.pm
 lib/DBD/Unify/GetInfo.pm

MANIFEST.SKIP

@@ -7,6 +7,7 @@
 \.git
 \.xsi$
 \.perlcriticrc
+\.whitesource
 blib/
 csv/
 cover_db/

cpanfile

@@ -0,0 +1,25 @@
+requires   "Carp";
+requires   "DBI"                      => "1.42";
+requires   "DynaLoader";
+
+recommends "DBI"                      => "1.642";
+
+on "configure" => sub {
+    requires   "Config";
+    requires   "Cwd";
+    requires   "DBI::DBD";
+    requires   "ExtUtils::MakeMaker";
+    };
+
+on "build" => sub {
+    requires   "Config";
+    requires   "File::Copy";
+    requires   "File::Find";
+    };
+
+on "test" => sub {
+    requires   "Test::Harness";
+    requires   "Test::More"               => "0.90";
+    
+    recommends "Test::More"               => "1.302164";
+    };

sandbox/genMETA.pl

@@ -19,6 +19,7 @@
     );
 
 $meta->from_data (<DATA>);
+$meta->gen_cpanfile ();
 
 if ($check) {
     $meta->check_encoding ();

sandbox/genMETA.pm

@@ -2,7 +2,7 @@
 
 package genMETA;
 
-our $VERSION = "1.08-20160520";
+our $VERSION = "1.09-20190531";
 
 use 5.14.1;
 use warnings;
@@ -453,4 +453,59 @@ sub fix_meta {
     unlink glob "MYMETA*";
     } # fix_meta
 
+sub _cpfd {
+    my ($jsn, $sct, $f) = @_;
+
+    open my $sh, ">", \my $b;
+    my $sep = "";
+    for (qw( requires recommends suggests )) {
+	my $s = $jsn->{"$sct$_"} or next;
+	print $sh $sep;
+	foreach my $m (sort keys %$s) {
+	    $m eq "perl" and next;
+	    my $v = $s->{$m};
+	    printf $sh qq{%-10s "%s"}, $_, $m;
+	    my $aw = (24 - length $m); $aw < 0 and $aw = 0;
+	    printf $sh qq{%s => "%s"}, " " x $aw, $v if $v;
+	    say $sh ";";
+	    }
+	$sep = "\n";
+	}
+    close $sh;
+    $sct || $f and $b and $b .= "};";
+    return $b;
+    } # _cpfd
+
+sub gen_cpanfile {
+    my $self = shift;
+
+    open my $fh, ">", "cpanfile";
+
+    my $jsn = $self->{h};
+    foreach my $sct_ ("", "configure_", "build_", "test_", "runtime_") {
+
+	my $sct = $sct_ =~ s/_$//r;
+
+	my $b = _cpfd ($jsn, $sct_, 0) or next;
+
+	if ($sct) {
+	    say $fh qq/\non "$sct" => sub {/;
+	    say $fh $b =~ s/^/    /gmr;
+	    }
+	else {
+	    print $fh $b;
+	    }
+	}
+
+    if (my $of = $jsn->{optional_features}) {
+	foreach my $f (sort keys %$of) {
+	    my $fs = $of->{$f};
+	    say $fh qq/\nfeature "$f", "$fs->{description}" => sub {/;
+	    say $fh _cpfd ($fs, "", 1) =~ s/^/    /gmr;
+	    }
+	}
+
+    close $fh;
+    } # gen_cpanfile
+
 1;