[dh-make-perl] 03/04: new routing, info() for printing stuff in verbose mode, with an 'I: ' prefix

[Damyan Ivanov]

This is an automated email from the git hooks/post-receive script.

dmn pushed a commit to branch master
in repository dh-make-perl.

commit 4113db10f67798fb0f1ea6d6fd2bb6e2f8e26ecb
Author: Damyan Ivanov <dmn at debian.org>
Date:   Sun May 24 09:33:56 2015 +0000

    new routing, info() for printing stuff in verbose mode, with an 'I: ' prefix
---
 lib/DhMakePerl/Command/make.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/lib/DhMakePerl/Command/make.pm b/lib/DhMakePerl/Command/make.pm
index 4e14c60..5d036a3 100644
--- a/lib/DhMakePerl/Command/make.pm
+++ b/lib/DhMakePerl/Command/make.pm
@@ -815,6 +815,23 @@ sub warning {
     warn "W: ", @_, "\n";
 }
 
+=item info I<string> ...
+
+In verbose mode, prints supplied arguments on STDERR, prepended with C<I: > and
+suffixed with a new line.
+
+Does nothing in non-verbose mode.
+
+=cut
+
+sub info {
+    my $self = shift;
+
+    return unless $self->cfg->verbose;
+
+    warn "I: ", @_, "\n";
+}
+
 =back
 
 =head1 AUTHOR

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/dh-make-perl.git