blob: 6d05cabbf00abdfe8757476043ce7b8633581917 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
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;
|