From 79cfccb7d8165299fbdffdc6663cea8f259c859b Mon Sep 17 00:00:00 2001
From: Richard Ipsum <richard.ipsum@codethink.co.uk>
Date: Wed, 19 Aug 2015 15:33:38 +0000
Subject: Add perl importer base

Change-Id: Ieb1a0d2047746e68db0e494d9dc73fe5aae782a3
---
 baserockimport/exts/ImporterBase.pm | 70 +++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 baserockimport/exts/ImporterBase.pm

diff --git a/baserockimport/exts/ImporterBase.pm b/baserockimport/exts/ImporterBase.pm
new file mode 100644
index 0000000..6d05cab
--- /dev/null
+++ b/baserockimport/exts/ImporterBase.pm
@@ -0,0 +1,70 @@
+#!/usr/bin/env perl
+# Base class for import extensions written in Perl.
+#
+# Copyright © 2015  Codethink Limited
+#
+# 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; version 2 of the License.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+package ImportExtension;
+{
+    use 5.020;
+    use strict;
+    use warnings;
+
+    use Moose;
+    use FileHandle;
+    use Log::Log4perl qw(get_logger :levels);
+    use Log::Dispatch;
+    use Scalar::Util qw (looks_like_number);
+
+    sub BUILD
+    {
+        my $self = shift;
+
+        $self->setup_logging();
+    }
+
+    sub setup_logging
+    {
+        my $self = shift;
+
+        my $fd = looks_like_number($ENV{MORPH_LOG_FD})
+                    ? $ENV{MORPH_LOG_FD} : 1;
+
+        my $fh = FileHandle->new_from_fd($fd, "w");
+        unless (defined $fh) {
+            die "Couldn't obtain file handle from morph log file descriptor";
+        }
+
+        my $logger = Log::Log4perl->get_logger(ref $self);
+        my $appender = Log::Log4perl::Appender->new(
+            "Log::Dispatch::Handle",
+            handle => $fh,
+            name => 'Handle'
+        );
+
+        $appender->layout("Log::Log4perl::Layout::SimpleLayout");
+        $logger->add_appender($appender);
+        $logger->level($DEBUG);
+
+        $logger->debug("Logging started");
+    }
+
+    sub run
+    {
+        ...
+    }
+}
+
+1;
-- 
cgit v1.2.1