add missing log_die method for Keitairc::Log

diff --git a/lib/Keitairc/Log.pm b/lib/Keitairc/Log.pm
index 7c10022..c82ae29 100644 (file)
--- a/lib/Keitairc/Log.pm
+++ b/lib/Keitairc/Log.pm
@@ -99,4 +99,10 @@ sub log_debug {
        $me->{writer}->log_debug($me->_format($m));
 }
 
+sub log_die {
+       my ($me, $m) = @_;
+       $me->log_error($m);
+       die;
+}
+
 1;