This file is indexed.

/usr/lib/perl5/OIS/InputManager.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
32
33
34
package OIS::InputManager;

use strict;
use warnings;
use Scalar::Util qw(looks_like_number);


sub createInputSystem {
    my ($self, @args) = @_;

    # passed in 1 arg, a window handle (i.e. a number)
    if (@args == 1) {
        if (looks_like_number($args[0])) {
            return $self->createInputSystemPtr(int($args[0]));
        }
        else {
            require Carp;
            Carp::confess(__PACKAGE__ . '::createInputSystem: ',
                          'single arg must be a number (window handle)' . $/);
        }
    }
    # passed in 2 args, a ParamList (hash)
    elsif (@args == 2) {
        return $self->createInputSystemPL(@args);
    }
    else {
        require Carp;
        Carp::confess(__PACKAGE__ . '::createInputSystem: ',
                      'missing required 1 or 2 args' . $/);
    }
}


1;