r53097 - /trunk/dh-make-perl/lib/DhMakePerl.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sat Feb 20 21:19:28 2010
New Revision: 53097

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53097
Log:
add a warning(...) method

Modified:
    trunk/dh-make-perl/lib/DhMakePerl.pm

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=53097&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Sat Feb 20 21:19:28 2010
@@ -2101,6 +2101,23 @@
     }
 }
 
+=item warning I<string> ...
+
+In verbose mode, prints supplied arguments on STDERR, prepended with C<W: > and
+suffixed with a new line.
+
+Does nothing in non-verbose mode.
+
+=cut
+
+sub warning {
+    my $self = shift;
+
+    return unless $self->cfg->verbose;
+
+    warn "W: ", @_, "\n";
+}
+
 sub _warn_incomplete_copyright {
     my $self = shift;