File Coverage

blib/lib/Gungho/Log.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             # $Id: /mirror/gungho/lib/Gungho/Log.pm 3261 2007-10-14T05:37:42.099746Z lestrrat $
2             #
3             # Copyright (c) 2007 Daisuke Maki <daisuke@endeworks.jp>
4             # All rights reserved.
5              
6             package Gungho::Log;
7 1     1   1099 use strict;
  1         1  
  1         22  
8 1     1   3 use warnings;
  1         1  
  1         24  
9 1     1   3 use base qw(Gungho::Base);
  1         1  
  1         11  
10              
11             BEGIN
12             {
13              
14             foreach my $level qw(debug info warn error fatal) {
15             eval <<" EOM";
16             sub is_$level {
17             Carp::carp("Gungho::Log->is_$level has been deprecated. Configure logs using 'min_level' parameter");
18             return 0;
19             }
20             EOM
21             }
22             }
23              
24             1;
25              
26             __END__
27              
28             =head1 NAME
29              
30             Gungho::Log - Log Base Class For Gungho
31              
32             =head1 METHODS
33              
34             =head2 is_debug
35              
36             =head2 is_info
37              
38             =head2 is_warn
39              
40             =head2 is_error
41              
42             =head2 is_fatal
43              
44             These methods have been deprecated, and are here only for backwards compatibility
45              
46             =cut