Model::Base: add 'warn' method

diff --git a/src/newslash_web/lib/Newslash/Model/Base.pm b/src/newslash_web/lib/Newslash/Model/Base.pm
index 92ab222..845b10c 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Base.pm
+++ b/src/newslash_web/lib/Newslash/Model/Base.pm
@@ -102,4 +102,10 @@ sub logger {
            };
 }
 
+sub warn {
+    my $self = shift;
+    my $val = shift;
+    $self->logger->warn($val);
+}
+
 1;