refactor this to make it easier to modify

1 files changed, 26 insertions, 0 deletions

diff --git a/inc/MMHelper.pm b/inc/MMHelper.pm
new file mode 100644
index 0000000..8e42fa9
--- /dev/null
+++ b/inc/MMHelper.pm
@@ -0,0 +1,26 @@
+package inc::MMHelper;
+use strict;
+use warnings;
+
+sub makefile_pl_extra {
+    return <<'EXTRA';
+use Config;
+use Devel::CallParser 'callparser1_h', 'callparser_linkable';
+open my $fh, '>', 'callparser1.h' or die "Couldn't write to callparser1.h";
+$fh->print(callparser1_h);
+my @linkable = callparser_linkable;
+unshift @linkable, "Keyword$Config{obj_ext}" if @linkable;
+$WriteMakefileArgs{OBJECT} = join(' ', @linkable) if @linkable;
+EXTRA
+}
+
+sub mm_args {
+    return {
+        NORECURS => 1,
+        clean    => {
+            FILES => "callparser1.h",
+        }
+    };
+}
+
+1;