logger automatically prepends [DBICDH] now

[dbsrgits/DBIx-Class-DeploymentHandler.git] / lib / DBIx / Class / DeploymentHandler / Logger.pm

diff --git a/lib/DBIx/Class/DeploymentHandler/Logger.pm b/lib/DBIx/Class/DeploymentHandler/Logger.pm
index 8112717..565a898 100644 (file)
--- a/lib/DBIx/Class/DeploymentHandler/Logger.pm
+++ b/lib/DBIx/Class/DeploymentHandler/Logger.pm
@@ -29,4 +29,12 @@ 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";
+}
+
 1;