From ee6bbaeb6648349ae62735df470e4c5e2ed1f28b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Javier=20Jard=C3=B3n?= <jjardon@gnome.org>
Date: Thu, 19 Apr 2012 17:34:10 +0100
Subject: buildsystem.py: Add support for generic Perl build system

---
 morphlib/buildsystem.py | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

(limited to 'morphlib/buildsystem.py')

diff --git a/morphlib/buildsystem.py b/morphlib/buildsystem.py
index ab12e730..f5eae027 100644
--- a/morphlib/buildsystem.py
+++ b/morphlib/buildsystem.py
@@ -150,10 +150,38 @@ class PythonDistutilsBuildSystem(BuildSystem):
         return any(exists(x) for x in indicators)
 
 
+class PerlBuildSystem(BuildSystem):
+
+    '''The Perl build system.'''
+
+    name = 'perl'
+
+    def __init__(self):
+        self.configure_commands = [
+            'perl Makefile.PL',
+        ]
+        self.build_commands = [
+            'make',
+        ]
+        self.test_commands = [
+        ]
+        self.install_commands = [
+            'make install',
+        ]
+
+    def used_by_project(self, exists):
+        indicators = [
+            'Makefile.PL',
+        ]
+
+        return any(exists(x) for x in indicators)
+
+
 build_systems = [
     ManualBuildSystem(),
     AutotoolsBuildSystem(),
     PythonDistutilsBuildSystem(),
+    PerlBuildSystem(),
     DummyBuildSystem(),
 ]
 
-- 
cgit v1.2.1