From b32c7b47006c193d41340c175ff866d3a607c43b Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Wed, 26 Nov 2008 16:01:22 -0500
Subject: add an output module to help with testing (that just outputs to an
 internal buffer)

---
 t/lib/Log/Dispatch/ToString.pm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 t/lib/Log/Dispatch/ToString.pm

diff --git a/t/lib/Log/Dispatch/ToString.pm b/t/lib/Log/Dispatch/ToString.pm
new file mode 100644
index 0000000..9819c29
--- /dev/null
+++ b/t/lib/Log/Dispatch/ToString.pm
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+package Log::Dispatch::ToString;
+use base 'Log::Dispatch::Output';
+
+sub new {
+    my $class = shift;
+    my $self = bless {}, $class;
+    $self->_basic_init(@_);
+    $self->{_string} = '';
+    return $self;
+}
+
+sub log_message {
+    my $self = shift;
+    my %args = @_;
+    $self->{_string} .= $args{message};
+}
+
+sub get_string {
+    my $self = shift;
+    return $self->{_string};
+}
+
+1;
-- 
cgit v1.2.3-54-g00ecf