Log::Dispatch::Binlog::Handle - A subclass of L<Log::Dispatch::Handle> that

Log-Dispatch-Binlog documentation Contained in the Log-Dispatch-Binlog distribution.

Index

Code Index:

NAME

Top

Log::Dispatch::Binlog::Handle - A subclass of Log::Dispatch::Handle that logs with Storable.

SYNOPSIS

Top

	use Log::Dispatch::Binlog::Handle;

	my $output Log::Dispatch::Binlog::Handle->new(
		# Log::Dispatch::Handle options go here
	);

DESCRIPTION

Top

Instead of printing messages this will store all of the params to log_dispatch using nstore_fd in Storable.

SEE ALSO

Top

Log::Dispatch::Handle

Log-Dispatch-Binlog documentation Contained in the Log-Dispatch-Binlog distribution. 
#!/usr/bin/perl

package Log::Dispatch::Binlog::Handle;

use strict;

use base qw(
	Log::Dispatch::Handle
	Log::Dispatch::Binlog::Base
);

sub log_message {
	my ( $self, %p ) = @_;

	$self->_storable_print( $self->{handle}, \%p )
        or die "Cannot write to handle: $!";
}

__PACKAGE__

__END__