/usr/share/perl5/RoPkg/Logger.pm is in libropkg-perl 0.4-1.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 | package RoPkg::Logger;
use warnings;
use strict;
use RoPkg::Exceptions;
use Class::Singleton;
use Sys::Syslog qw(:standard :macros);
use Scalar::Util qw(blessed);
use vars qw($VERSION @ISA);
$VERSION = '0.1';
@ISA=qw(Class::Singleton);
sub new {
shift;
return RoPkg::Logger->instance(@_);
}
sub instance {
my ($class, %opt) = @_;
my $self;
$self = bless { %opt }, $class;
if (!$self->{ident}) {
$self->{ident} = 'wf';
}
if (!$self->{options}) {
$self->{options} = 'ndelay';
}
if (!$self->{facility}) {
$self->{facility} = LOG_USER;
}
$self->_init_log();
return $self;
}
sub _init_log {
my ($self) = @_;
return openlog($self->{ident}, $self->{options}, $self->{facility});
}
##############################
### Public methods - BEGIN ###
##############################
sub info {
my ($self, @items) = @_;
if ( !blessed($self) ) {
OutsideClass->throw(
error => 'Called outside class instance',
pkg_name => 'RoPkg::Logger',
);
}
return syslog(LOG_INFO, @items);
}
sub err {
my ($self, @items) = @_;
if ( !blessed($self) ) {
OutsideClass->throw(
error => 'Called outside class instance',
pkg_name => 'RoPkg::Logger',
);
}
return syslog(LOG_ERR, @items);
}
sub alert {
my ($self, @items) = @_;
if ( !blessed($self) ) {
OutsideClass->throw(
error => 'Called outside class instance',
pkg_name => 'RoPkg::Logger',
);
}
return syslog(LOG_ALERT, @items);
}
##############################
### Public methods - END ###
##############################
1;
|