This file is indexed.

/usr/share/perl5/RoPkg/Logger.pm is in libropkg-perl 0.4-1.2.

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;