Perl generator for Thrift compiler

Summary: Submitted by Jake Luciani

Reviewed By: mcslee

Test Plan: Who likes perl? Not me. Test files to be checked in soon.


git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@665111 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/compiler/cpp/src/parse/t_program.h b/compiler/cpp/src/parse/t_program.h
index 610867a..1e2ad1e 100644
--- a/compiler/cpp/src/parse/t_program.h
+++ b/compiler/cpp/src/parse/t_program.h
@@ -38,7 +38,7 @@
 class t_program {
  public:
   t_program(std::string path, std::string name) :
-    path_(path), 
+    path_(path),
     name_(name) {
     scope_ = new t_scope();
   }
@@ -49,7 +49,7 @@
     scope_ = new t_scope();
   }
 
-  // Path accessor   
+  // Path accessor
   const std::string& get_path() const { return path_; }
 
   // Name accessor
@@ -139,6 +139,14 @@
     return xsd_namespace_;
   }
 
+  void set_perl_namespace(std::string perl_namespace) {
+    perl_namespace_ = perl_namespace;
+  }
+
+  const std::string& get_perl_namespace() const {
+    return perl_namespace_;
+  }
+
  private:
 
   // File path
@@ -179,6 +187,9 @@
   // XSD namespace
   std::string xsd_namespace_;
 
+  // Perl namespace
+  std::string perl_namespace_;
+
 };
 
 #endif