#!/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__

=pod

=head1 NAME

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

=head1 SYNOPSIS

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

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

=head1 DESCRIPTION

Instead of printing messages this will store all of the params to
C<log_dispatch> using L<Storable/nstore_fd>.

=head1 SEE ALSO

L<Log::Dispatch::Handle>

=cut