~grubng-dev/grubng/clients-perl

« back to all changes in this revision

Viewing changes to Client/Baselogger.pm

  • Committer: yagnesh
  • Date: 2011-06-26 06:20:58 UTC
  • Revision ID: s_yagnesh@yahoo.com-20110626062058-gz2d86sl8x3j4amn
Added POD to all modules; added Makefile.PL; moved modules under /lib/ dir

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
# This program is free software: you can redistribute it and/or modify
2
 
# it under the terms of the GNU General Public License as published by
3
 
# the Free Software Foundation, either version 3 of the License, or
4
 
# (at your option) any later version.
5
 
#
6
 
# This program is distributed in the hope that it will be useful,
7
 
# but WITHOUT ANY WARRANTY; without even the implied warranty of
8
 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
9
 
# GNU General Public License for more details.
10
 
#
11
 
# You should have received a copy of the GNU General Public License
12
 
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
13
 
 
14
 
package Grub::Client::Baselogger;
15
 
 
16
 
use strict;
17
 
use warnings;
18
 
 
19
 
my $log_level;
20
 
 
21
 
my $msg_prefix = ;
22
 
 
23
 
sub new{
24
 
  my ($class, $loglevel) = @_;
25
 
  $loglevel = 1 if (!defined($loglevel));
26
 
  my $self = {
27
 
              _log_level => $loglevel,
28
 
              _msg_prefix = scalar localtime.":"
29
 
              _error => 1,
30
 
              _warning => 2,
31
 
              _info => 3,
32
 
              _debug => 4
33
 
              };
34
 
  bless $self,$class;
35
 
  return $self;
36
 
}
37
 
 
38
 
sub write{
39
 
  croak "Could not invoke write on base logger.";
40
 
}
41
 
 
42
 
sub get_log_prefix($){
43
 
 my ($log_prefix,$log_type);
44
 
 $log_type = shift;
45
 
 $log_type = 1 if (!defined($log_type));
46
 
 
47
 
 SWITCH:{
48
 
    $log_type == 1 && $log_prefix = 'Error: '; last;
49
 
    $log_type == 2 && $log_prefix = 'Warning: '; last;
50
 
    $log_type == 3 && $log_prefix = 'Info: '; last;
51
 
    $log_type == 4 && $log_prefix = 'Debug: '; last;
52
 
  }
53
 
  return $log_prefix;
54
 
}
55
 
 
56
 
sub dispose{
57
 
  croak "Cannot invoke dispose on base logger\n";
58
 
}
59
 
 
60