This file is indexed.

/usr/lib/perl5/OIS/Exception.pm is in libois-perl 0.05-2build1.

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
package OIS::Exception;

use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);

our %EXPORT_TAGS = (
    'OIS_ERROR' => [
        qw(
	   E_InputDisconnected
           E_InputDeviceNonExistant
           E_InputDeviceNotSupported
           E_DeviceFull
           E_NotSupported
           E_NotImplemented
           E_Duplicate
           E_InvalidParam
           E_General
       )
    ],
);

$EXPORT_TAGS{'all'} = [ map { @{ $EXPORT_TAGS{$_} } } keys %EXPORT_TAGS ];

our @EXPORT_OK = @{ $EXPORT_TAGS{'all'} };
our @EXPORT = ();


1;