This file is indexed.

/usr/share/perl5/Alt/Assert.pm is in libalt-perl 0.19-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
use strict; use warnings;
package Alt::Assert;

sub assert {
    my $self  = shift;
    my $mod   = shift || caller();

    my ($orig, $phrase) = $mod =~ /^Alt::(\w+(?:::\w+)*)::(\w+)$/
        or die "Bad syntax in alternate module name '$mod', should be ".
            "Alt::<Original::Module>::<phrase>\n";
    my $origf = $orig;
    $origf =~ s!::!/!g; $origf .= ".pm";
    require $origf; # if user hasn't loaded the module, load it for them

    defined(&{"$orig\::ALT"})
        or die "$orig does not define ALT, might not be from the same ".
            "distribution as $mod\n";

    my $alt = $orig->ALT;
    $alt eq $phrase
        or die "$orig has ALT set to '$alt' instead of '$phrase', ".
            "might not be from the same distribution as $mod\n";
}

sub import {
    my $self   = shift;
    my $caller = caller();

    # export assert()
    {
        no strict;
        *{"$caller\::assert"} = \&assert;
    }
    $self->assert($caller);
}

1;