/usr/share/perl5/Net/Stomp/StupidLogger.pm is in libnet-stomp-perl 0.56-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 | package Net::Stomp::StupidLogger;
use strict;
use warnings;
use Carp;
our $VERSION = '0.56';
sub new {
my ($class,$levels) = @_;
$levels||={};
for my $l (qw(warn error fatal)) {
$levels->{$l}=1 unless defined $levels->{$l};
}
return bless $levels,$class;
}
sub _log {
my ($self,$level,@etc) = @_;
return unless $self->{$level};
carp join '',@etc;
}
sub debug { my $self=shift;$self->_log(debug=>@_) }
sub info { my $self=shift;$self->_log(info =>@_) }
sub warn { my $self=shift;$self->_log(warn =>@_) }
sub error { my $self=shift;$self->_log(error=>@_) }
sub fatal { my $self=shift;$self->_log(fatal=>@_) }
1;
__END__
=head1 NAME
Net::Stomp::StupidLogger - stub logger
=head1 DESCRIPTION
This class implements a very simple logger-like object, that just
delegates to L<carp|Carp/carp>.
By default, it logs at C<warn> and above.
You should pass a real logger object to L<Net::Stomp> if you want any
other behaviour.
=head1 METHODS
=head2 new
Constructor. You can pass a hashref with the log levels to enable /
disable, like:
Net::Stomp::StupidLogger->new({debug=>1}); # logs debug, warn,
# error, fatal
Net::Stomp::StupidLogger->new({warn=>0}); # logs error, fatal
=head2 debug
=head2 info
=head2 warn
=head2 error
=head2 fatal
$logger->warn('some',$message);
If the corresponding level is enabled, joins the arguments in a single
string (no spaces added) and calls L<carp|Carp/carp>.
=head1 AUTHORS
Gianni Ceccarelli <dakkar@thenautilus.net>
=head1 COPYRIGHT
This module is free software; you can redistribute it or modify it
under the same terms as Perl itself.
|