Use say, not println.

This commit is contained in:
Elijah Perrault committed 2011-02-14 20:45:09 -07:00
1 parent cf45c4468a
commit 934a10d880
1 file changed
+3 -2
+3 -2
View File
@@ -4,6 +4,7 @@
package API::Std; package API::Std;
use strict; use strict;
use warnings; use warnings;
use feature qw(say);
use Exporter; use Exporter;
use base qw(Exporter); use base qw(Exporter);
@@ -470,7 +471,7 @@ sub err ## no critic qw(Subroutines::ProhibitBuiltinHomonyms)
# Level 1: Print to screen. # Level 1: Print to screen.
if ($lvl >= 1) { if ($lvl >= 1) {
API::Log::println("ERROR: $msg"); say "ERROR: $msg";
} }
# Level 2: Log to file. # Level 2: Log to file.
if ($lvl >= 2) { if ($lvl >= 2) {
@@ -499,7 +500,7 @@ sub awarn
# Level 1: Print to screen. # Level 1: Print to screen.
if ($lvl >= 1) { if ($lvl >= 1) {
API::Log::println("WARNING: $msg"); say "WARNING: $msg";
} }
# Level 2: Log to file. # Level 2: Log to file.
if ($lvl >= 2) { if ($lvl >= 2) {