1 files changed, 101 insertions, 0 deletions
diff --git a/umbrello/umbrello/codegenerators/perlwriter.h b/umbrello/umbrello/codegenerators/perlwriter.h
new file mode 100644
index 00000000..9dac4e56
--- /dev/null
+++ b/umbrello/umbrello/codegenerators/perlwriter.h
@@ -0,0 +1,101 @@
+/***************************************************************************
+                          perlwriter.h  -  description
+                             -------------------
+    begin                : Wed Jan 22 2003
+    copyright            : (C) 2003 by David Hugh-Jones
+    email                : hughjonesd@yahoo.co.uk
+ ***************************************************************************/
+
+/***************************************************************************
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ ***************************************************************************/
+
+#ifndef PERLWRITER_H
+#define PERLWRITER_H
+
+#include "simplecodegenerator.h"
+#include "../umlattributelist.h"
+#include "../umloperationlist.h"
+
+class UMLOperation;
+class UMLAttribute;
+class UMLClassifier;
+
+/**
+  * class PerlWriter is a Perl code generator for UMLClassifier objects
+  * Just call writeClass and feed it a UMLClassifier;
+  */
+class PerlWriter : public SimpleCodeGenerator {
+    Q_OBJECT
+public:
+
+    PerlWriter();
+    virtual ~PerlWriter();
+
+    /**
+      * call this method to generate Perl code for a UMLClassifier
+      * @param c the class you want to generate code for.
+      */
+    virtual void writeClass(UMLClassifier *c);
+
+    /**
+     * returns "Perl"
+     */
+    virtual Uml::Programming_Language getLanguage();
+
+    /**
+     * get list of reserved keywords
+     */
+    virtual const QStringList reservedKeywords() const;
+
+    QStringList defaultDatatypes();
+
+private:
+
+    /**
+     * we do not want to write the comment "Private methods" twice
+     * not sure whether this is php specific
+     */
+    bool bPrivateSectionCommentIsWritten;
+
+    /**
+      * write all operations for a given class
+      *
+      * @param c the concept we are generating code for
+      * @param perl output stream for the Perl file
+      */
+    void writeOperations(UMLClassifier *c, QTextStream &perl);
+
+    /**
+      * write a list of class operations
+      *
+      * @param classname the name of the class
+      * @param opList the list of operations
+      * @param perl output stream for the Perl file
+      */
+    void writeOperations(const QString &classname, UMLOperationList &opList,
+                         QTextStream &perl);
+
+    /** write all the attributes of a class
+      * @param c the class we are generating code for
+      * @param perl output stream for the Perl file
+      */
+    void writeAttributes(UMLClassifier *c, QTextStream &perl);
+
+    /** write a list of class attributes
+      * @param atList the list of attributes
+      * @param perl output stream for the Perl file
+      */
+    void writeAttributes(UMLAttributeList &atList, QTextStream &perl);
+
+    bool GetUseStatements(UMLClassifier *c, QString &Ret,
+                          QString &ThisPkgName);
+
+};
+
+#endif //PERLWRITER