/usr/share/perl5/Log/Log4perl/Appender/String.pm is in liblog-log4perl-perl 1.29-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 | package Log::Log4perl::Appender::String;
our @ISA = qw(Log::Log4perl::Appender);
##################################################
# Log dispatcher writing to a string buffer
##################################################
##################################################
sub new {
##################################################
my $proto = shift;
my $class = ref $proto || $proto;
my %params = @_;
my $self = {
name => "unknown name",
string => "",
%params,
};
bless $self, $class;
}
##################################################
sub log {
##################################################
my $self = shift;
my %params = @_;
$self->{string} .= $params{message};
}
##################################################
sub string {
##################################################
my($self, $new) = @_;
if(defined $new) {
$self->{string} = $new;
}
return $self->{string};
}
1;
__END__
=head1 NAME
Log::Log4perl::Appender::String - Append to a string
=head1 SYNOPSIS
use Log::Log4perl::Appender::String;
my $appender = Log::Log4perl::Appender::String->new(
name => 'my string appender',
);
# Append to the string
$appender->log(
message => "I'm searching the city for sci-fi wasabi\n"
);
# Retrieve the result
my $result = $appender->string();
# Reset the buffer to the empty string
$appender->string("");
=head1 DESCRIPTION
This is a simple appender used internally by C<Log::Log4perl>. It
appends messages to a scalar instance variable.
=head1 COPYRIGHT AND LICENSE
Copyright 2002-2009 by Mike Schilli E<lt>m@perlmeister.comE<gt>
and Kevin Goess E<lt>cpan@goess.orgE<gt>.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|