1 files changed, 52 insertions, 0 deletions
diff --git a/t/testdisp.pl b/t/testdisp.pl
new file mode 100644
index 0000000..a1911db
--- /dev/null
+++ b/t/testdisp.pl
@@ -0,0 +1,52 @@
+##################################################
+# String dispatcher for testing
+##################################################
+
+package Log::Dispatch::String;
+
+use Log::Dispatch::Output;
+use base qw( Log::Dispatch::Output );
+use fields qw( stderr );
+
+sub new
+{
+    my $proto = shift;
+    my $class = ref $proto || $proto;
+    my %params = @_;
+
+    my $self = bless {}, $class;
+
+    $self->_basic_init(%params);
+    $self->{stderr} = exists $params{stderr} ? $params{stderr} : 1;
+    $self->{buffer} = "";
+
+    return $self;
+}
+
+sub log_message
+{   
+    my $self = shift;
+    my %params = @_;
+
+    $self->{buffer} .= $params{message};
+}
+
+sub buffer
+{   
+    my($self, $new) = @_;
+
+    if(defined $new) {
+        $self->{buffer} = $new;
+    }
+
+    return $self->{buffer};
+}
+
+sub reset
+{   
+    my($self) = @_;
+
+    $self->{buffer} = "";
+}
+
+1;