File Coverage

blib/lib/Metabrik/Log/Null.pm
Criterion Covered Total %
statement 9 24 37.5
branch n/a
condition 0 3 0.0
subroutine 3 10 30.0
pod 7 7 100.0
total 19 44 43.1


line stmt bran cond sub pod time code
1             #
2             # $Id$
3             #
4             # log::null Brik
5             #
6             package Metabrik::Log::Null;
7 1     1   715 use strict;
  1         4  
  1         29  
8 1     1   5 use warnings;
  1         2  
  1         29  
9              
10 1     1   5 use base qw(Metabrik::Core::Log);
  1         1  
  1         340  
11              
12             sub brik_properties {
13             return {
14 0     0 1   revision => '$Revision$',
15             tags => [ qw(unstable logging) ],
16             author => 'GomoR ',
17             license => 'http://opensource.org/licenses/BSD-3-Clause',
18             attributes => {
19             level => [ qw(0|1|2|3) ],
20             },
21             commands => {
22             message => [ qw(string caller|OPTIONAL) ],
23             info => [ qw(string caller|OPTIONAL) ],
24             verbose => [ qw(string caller|OPTIONAL) ],
25             warning => [ qw(string caller|OPTIONAL) ],
26             error => [ qw(string caller|OPTIONAL) ],
27             fatal => [ qw(string caller|OPTIONAL) ],
28             debug => [ qw(string caller|OPTIONAL) ],
29             },
30             };
31             }
32              
33             sub warning {
34 0     0 1   my $self = shift;
35              
36 0           return 1;
37             }
38              
39             sub error {
40 0     0 1   my $self = shift;
41              
42 0           return;
43             }
44              
45             sub fatal {
46 0     0 1   my $self = shift;
47 0           my ($msg, $caller) = @_;
48              
49 0   0       my $buffer = "[F] ".$self->message($msg, ($caller) ||= caller());
50              
51 0           die($buffer);
52             }
53              
54             sub info {
55 0     0 1   my $self = shift;
56              
57 0           return 1;
58             }
59              
60             sub verbose {
61 0     0 1   my $self = shift;
62              
63 0           return 1;
64             }
65              
66             sub debug {
67 0     0 1   my $self = shift;
68              
69 0           return 1;
70             }
71              
72             1;
73              
74             __END__