blob: 9819c290e573a65c2a9809436ff1320ca9de4e9f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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;
|