This file is indexed.

/usr/share/perl5/PlSense/Entity/Instance.pm is in plsense 0.3.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
package PlSense::Entity::Instance;

use parent qw{ PlSense::Entity };
use strict;
use warnings;
use Class::Std::Storable;
use PlSense::Logger;
{
    my %modulenm_of :ATTR( :init_arg<modulenm> :default('') );
    sub set_modulenm { my ($self, $modulenm) = @_; $modulenm_of{ident $self} = $modulenm; }
    sub get_modulenm { my ($self) = @_; return $modulenm_of{ident $self}; }

    sub BUILD {
        my ($class, $ident, $arg_ref) = @_;
        $class->set_type("instance");
    }

    sub to_string {
        my $self = shift;
        my $ret = "I<";
        $ret .= $self->get_modulenm ? $self->get_modulenm : "";
        $ret .= ">";
        return $ret;
    }

    sub clone {
        my $self = shift;
        return PlSense::Entity::Instance->new({ modulenm => $modulenm_of{ident $self} });
    }
}

1;

__END__