File Coverage

blib/lib/Eidolon/Driver/Log.pm
Criterion Covered Total %
statement 12 22 54.5
branch n/a
condition n/a
subroutine 4 10 40.0
pod 6 6 100.0
total 22 38 57.8


line stmt bran cond sub pod time code
1             package Eidolon::Driver::Log;
2             # ==============================================================================
3             #
4             # Eidolon
5             # Copyright (c) 2009, Atma 7
6             # ---
7             # Eidolon/Driver/Log.pm - generic log driver
8             #
9             # ==============================================================================
10              
11 1     1   2886 use base qw/Eidolon::Driver/;
  1         3  
  1         504  
12 1     1   535 use Eidolon::Driver::Log::Exceptions;
  1         2  
  1         32  
13 1     1   6 use warnings;
  1         1  
  1         30  
14 1     1   5 use strict;
  1         1  
  1         223  
15              
16             our $VERSION = "0.02"; # 2009-05-14 05:21:50
17              
18             # ------------------------------------------------------------------------------
19             # \% new()
20             # constructor
21             # ------------------------------------------------------------------------------
22             sub new
23             {
24 0     0 1   my ($class, $self);
25              
26 0           $class = shift;
27 0           $self = {};
28              
29 0           bless $self, $class;
30              
31 0           return $self;
32             }
33              
34             # ------------------------------------------------------------------------------
35             # open()
36             # open log
37             # ------------------------------------------------------------------------------
38             sub open
39             {
40 0     0 1   throw CoreError::AbstractMethod;
41             }
42              
43             # ------------------------------------------------------------------------------
44             # close()
45             # close log
46             # ------------------------------------------------------------------------------
47             sub close
48             {
49 0     0 1   throw CoreError::AbstractMethod;
50             }
51              
52             # ------------------------------------------------------------------------------
53             # notice($msg)
54             # log notice
55             # ------------------------------------------------------------------------------
56             sub notice
57             {
58 0     0 1   throw CoreError::AbstractMethod;
59             }
60              
61             # ------------------------------------------------------------------------------
62             # warning($msg)
63             # log warning
64             # ------------------------------------------------------------------------------
65             sub warning
66             {
67 0     0 1   throw CoreError::AbstractMethod;
68             }
69              
70             # ------------------------------------------------------------------------------
71             # error($msg)
72             # log error
73             # ------------------------------------------------------------------------------
74             sub error
75             {
76 0     0 1   throw CoreError::AbstractMethod;
77             }
78              
79             1;
80              
81             __END__