Log::NullLogLite (3pm)

  use Log::NullLogLite;

  # create new Log::NullLogLite object
  my $log = new Log::NullLogLite();

  ...

  # we had an error (this entry will not be written to the log
  # file because we use Log::NullLogLite object).
  $log->write("Could not open the file ".$file_name.": $!", 4);

The \*(C`Log::NullLogLite\*(C' class is derived from the \*(C`Log::LogLite\*(C' class and implement the Null Object Pattern to let us to use the \*(C`Log::LogLite\*(C' class with null \*(C`Log::LogLite\*(C' objects. We might want to do that if we use a \*(C`Log::LogLite\*(C' object in our code, and we do not want always to actually define a \*(C`Log::LogLite\*(C' object (i.e. not always we want to write to a log file). In such a case we will create a \*(C`Log::NullLogLite\*(C' object instead of the \*(C`Log::LogLite\*(C' object, and will use that object instead. The object has all the methods that the \*(C`Log::LogLite\*(C' object has, but those methods do nothing. Thus our code will continue to run without any change, yet we will not have to define a log file path for the \*(C`Log::LogLite\*(C' object, and no log will be created.

new ( \s-1FILEPATH\s0 [,LEVEL [,DEFAULT_MESSAGE ]] )

The constructor. The parameters will not have any affect. Returns the new Log::NullLogLite object.

write( \s-1MESSAGE\s0 [, \s-1LEVEL\s0 ] )

Does nothing. The parameters will not have any affect. Returns nothing.

level( [ \s-1LEVEL\s0 ] )

Does nothing. The parameters will not have any affect. Returns -1.

default_message( [ \s-1MESSAGE\s0 ] )

Does nothing. The parameters will not have any affect. Returns empty string ("").

Rani Pinchuk, [email protected]

Copyright (c) 2001-2002 Ockham Technology N.V. & Rani Pinchuk. All rights reserved. This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Log::LogLite\|(3), The Null Object Pattern - Bobby Woolf - PLoP96 - published in Pattern Languages of Program Design 3 (http://cseng.aw.com/book/0,,0201310112,00.html)