X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FDeploymentHandler%2FLogger.pm;h=1aadb82006997e8026e13c43bca1aa239d555bcc;hb=b6bd39e5d75c994c09f3d0ae0661c572e1c71f05;hp=811271743988595224af74d7329d77802855fe10;hpb=4355e4fb0c11c32c5fa81cf2428203bd6640f024;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

diff --git a/lib/DBIx/Class/DeploymentHandler/Logger.pm b/lib/DBIx/Class/DeploymentHandler/Logger.pm
index 8112717..1aadb82 100644
--- a/lib/DBIx/Class/DeploymentHandler/Logger.pm
+++ b/lib/DBIx/Class/DeploymentHandler/Logger.pm
@@ -29,4 +29,21 @@ sub is_fatal {
    return $_[0]->is_error || 1
 }
 
+sub _log {
+  my $self    = shift;
+  my $level   = shift;
+  my $message = join( "\n", @_ );
+  $message .= "\n" unless $message =~ /\n$/;
+  warn "[DBICDH] [$level] $message";
+}
+
+sub new {
+   my ($self, $options, @rest) = @_;
+
+   $options ||= {};
+   $options->{env_prefix} ||= 'DBICDH';
+
+   $self->next::method($options, @rest)
+}
+
 1;