MY::postamble accepts a param, which it will concat onto its results

diff --git a/lib/Distar.pm b/lib/Distar.pm
index 5ffd7b5..e4f2628 100644 (file)
--- a/lib/Distar.pm
+++ b/lib/Distar.pm
@@ -85,6 +85,8 @@ sub run_preflight {
 }
 
 sub MY::postamble {
+    my ($self, %extra) = @_;
+
     my $post = <<'END';
 preflight:
        perl -IDistar/lib -MDistar -erun_preflight $(VERSION)
@@ -104,6 +106,7 @@ END
     if (open my $fh, '<', 'maint/Makefile.include') {
         $post .= do { local $/; <$fh> };
     }
+    $post .= "\n" . join('', %extra) if keys %extra;
     return $post;
 }