File Coverage

blib/lib/Log/NullLogLite.pm

Criterion	Covered	Total	%
statement	18	22	81.8
branch			n/a
condition	1	3	33.3
subroutine	6	8	75.0
pod	4	4	100.0
total	29	37	78.3

package Log::NullLogLite;

use strict;
use vars qw($VERSION @ISA);

$VERSION = 0.82;

# According to the Null pattern.
#
# Log::NullLogLite inherits from Log::LogLite and implement the Null
# Object Pattern.
use Log::LogLite;
@ISA = ("Log::LogLite");
package Log::NullLogLite;
use strict;

##########################################
# new($filepath)
# new($filepath,$level)
# new($filepath,$level,$default_message)
##########################################
# the constructor
sub new {
    my $proto = shift; # get the class name
    my $class = ref($proto) || $proto;
    my $self  = {};
    bless ($self, $class);
    return $self;
} # of new

########################
# write($message, $level)
########################
# will log the message in the log file only if $level>=LEVEL
sub write {
    my $self = shift;
} # of write

##########################
# level()
# level($level)
##########################
# an interface to LEVEL
sub level {
    my $self = shift;
    return -1;
} # of level

###########################
# default_message()
# default_message($message)
###########################
# an interface to DEFAULT_MESSAGE
sub default_message {
    my $self = shift;
    return "";
} # of default_message

1;
__END__