/usr/share/perl5/Log/Contextual/TeeLogger.pm is in liblog-contextual-perl 0.006000-1.
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 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 | package Log::Contextual::TeeLogger;
use strict;
use warnings;
{
for my $name (qw( trace debug info warn error fatal )) {
no strict 'refs';
*{$name} = sub {
my $self = shift;
foreach my $logger (@{$self->{loggers}}) {
$logger->$name(@_);
}
};
my $is_name = "is_${name}";
*{$is_name} = sub {
my $self = shift;
foreach my $logger (@{$self->{loggers}}) {
return 1 if $logger->$is_name(@_);
}
return 0;
};
}
}
sub new {
my ($class, $args) = @_;
my $self = bless {}, $class;
ref($self->{loggers} = $args->{loggers}) eq 'ARRAY'
or die "No loggers passed to tee logger";
return $self;
}
1;
__END__
=head1 NAME
Log::Contextual::TeeLogger - Output to more than one logger
=head1 SYNOPSIS
use Log::Contextual::SimpleLogger;
use Log::Contextual::TeeLogger;
use Log::Contextual qw( :log ),
-logger => Log::Contextual::TeeLogger->new({ loggers => [
Log::Contextual::SimpleLogger->new({ levels => [ 'debug' ] }),
Log::Contextual::SimpleLogger->new({
levels => [ 'info' ],
coderef => sub { print @_ },
}),
]});
## docs below here not yet edited
log_info { 'program started' }; # no-op because info is not in levels
sub foo {
log_debug { 'entered foo' };
...
}
=head1 DESCRIPTION
This module is a simple logger made mostly for demonstration and initial
experimentation with L<Log::Contextual>. We recommend you use a real logger
instead. For something more serious but not overly complicated, take a look at
L<Log::Dispatchouli>.
=head1 METHODS
=head2 new
Arguments: C<< Dict[ levels => ArrayRef[Str], coderef => Optional[CodeRef] ] $conf >>
my $l = Log::Contextual::SimpleLogger->new({
levels => [qw( info warn )],
coderef => sub { print @_ }, # the default prints to STDERR
});
Creates a new SimpleLogger object with the passed levels enabled and optionally
a C<CodeRef> may be passed to modify how the logs are output/stored.
Levels may contain:
trace
debug
info
warn
error
fatal
=head2 $level
Arguments: C<@anything>
All of the following six methods work the same. The basic pattern is:
sub $level {
my $self = shift;
print STDERR "[$level] " . join qq{\n}, @_;
if $self->is_$level;
}
=head3 trace
$l->trace( 'entered method foo with args ' join q{,}, @args );
=head3 debug
$l->debug( 'entered method foo' );
=head3 info
$l->info( 'started process foo' );
=head3 warn
$l->warn( 'possible misconfiguration at line 10' );
=head3 error
$l->error( 'non-numeric user input!' );
=head3 fatal
$l->fatal( '1 is never equal to 0!' );
=head2 is_$level
All of the following six functions just return true if their respective
level is enabled.
=head3 is_trace
say 'tracing' if $l->is_trace;
=head3 is_debug
say 'debuging' if $l->is_debug;
=head3 is_info
say q{info'ing} if $l->is_info;
=head3 is_warn
say 'warning' if $l->is_warn;
=head3 is_error
say 'erroring' if $l->is_error;
=head3 is_fatal
say q{fatal'ing} if $l->is_fatal;
=head1 AUTHOR
See L<Log::Contextual/"AUTHOR">
=head1 COPYRIGHT
See L<Log::Contextual/"COPYRIGHT">
=head1 LICENSE
See L<Log::Contextual/"LICENSE">
=cut
|