From fa8319d6a192aca1e5ff200b470fde3b84687496 Mon Sep 17 00:00:00 2001 From: Ryan Jendoubi Date: Thu, 11 Aug 2011 16:43:57 +0100 Subject: [PATCH] Added "say" option (auto-append "\n" to output) --- .gitignore | 1 + lib/Debug/Simple.pm | 3 +++ 2 files changed, 4 insertions(+) create mode 100644 .gitignore diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..1377554 --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +*.swp diff --git a/lib/Debug/Simple.pm b/lib/Debug/Simple.pm index 17fca1c..f083ec2 100644 --- a/lib/Debug/Simple.pm +++ b/lib/Debug/Simple.pm @@ -35,6 +35,7 @@ sub warning { return if $opt->{quiet}; #warn ("Warning: ", @_); print YELLOW ("Warning: ", @_); + print "\n" if defined $opt->{say}; print ""; } @@ -52,6 +53,7 @@ sub debug { #print "TEST\n" if defined $opt->{test} && $level[3]; my $str = shift || ''; + $str = $str . "\n" if defined $opt->{say}; my $name = shift; print BOLD "Debug: " unless $level[1] || $level[2]; @@ -74,6 +76,7 @@ sub verbose { || ($opt->{test} && $level[1]); print @_; + print "\n" if defined $opt->{say}; print ""; }