lib/Keitairc/Log.pm

   1 # -*- mode: perl; coding: utf-8 -*-
   2 # Keitairc::Log
   3 # $Id: Log.pm,v 1.2 2008-08-02 15:45:05 morimoto Exp $
   4 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/Log.pm,v $
   5 #
   6 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
   7 # This program is covered by the GNU General Public License 2
   8
   9 package Keitairc::Log;
  10 use strict;
  11 use warnings;
  12
  13 sub log{
  14         my $m = shift;
  15         warn "keitairc: $m\n";
  16 }
  17
  18 sub log_die{
  19         my $m = shift;
  20         die "keitairc: $m\n";
  21 }
  22
  23 no strict;
  24 sub log_debug{
  25         my $m = shift;
  26         return unless defined $cf;
  27         if($cf->debug()){
  28                 warn "keitairc(debug): $m\n";
  29         }
  30 }
  31
  32 1;