| Log-Fine documentation | Contained in the Log-Fine distribution. |
Log::Fine::Handle::String - formatted output
Returns the formatted string for testing purposes.
use Log::Fine;
use Log::Fine::Handle::String;
# Get a new logger
my $log = Log::Fine->logger("foo");
# register a file handle
my $handle = Log::Fine::Handle::String->new();
# get a formatted message
my $formatted_message = $log->(INFO, "Opened new log handle");
The string handle returns the formatted message. This is useful for general-purpose testing and verification.
Returns the formatted message
Note: msgWrite() is an internal method to the Log::Fine framework, meant to be sub-classed. Use log in Log::Fine::Logger for actual logging.
Level at which to log
Message to log
Passed to caller (caller in perlfunc) for accurate method logging
The formatted message
Please report any bugs or feature requests to
bug-log-fine-handle-string at rt.cpan.org, or through the web interface at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Log-Fine.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc Log::Fine
You can also look for information at:
$Id: 8fb352f52b7a59533d3ff582d7f919b0db886550 $
Christopher M. Fuhrman, <cfuhrman at panix.com>
perl, Log::Fine, Log::Fine::Handle
Copyright (c) 2008, 2010 Christopher M. Fuhrman, All rights reserved.
This program is free software licensed under the...
The BSD License
The full text of the license can be found in the LICENSE file included with this module.
| Log-Fine documentation | Contained in the Log-Fine distribution. |
use strict; use warnings; package Log::Fine::Handle::String; use base qw( Log::Fine::Handle ); our $VERSION = $Log::Fine::Handle::VERSION;
sub msgWrite { my $self = shift; my $lvl = shift; my $msg = shift; my $skip = shift; # NOT USED # make sure we load the appropriate formatter eval "require " . ref $self->{formatter}; # if we have a formatter defined, then use that, otherwise, just # print the raw message $msg = $self->{formatter}->format($lvl, $msg, $skip) if defined $self->{formatter}; # Victory! return $msg; } # msgWrite()
1; # End of Log::Fine::Handle::String