This file is indexed.

/usr/share/perl5/Text/Trac/Context.pm is in libtext-trac-perl 0.15-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
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
package Text::Trac::Context;
use strict;
use base qw (Class::Accessor::Fast);

__PACKAGE__->mk_accessors( qw( ul ol min_heading_level permalink in_block_of trac_url ) );

my %Defaults = (
        text          => '',
        html          => '',
        htmllines     => [],
        ul            => {},
        ol            => {},
        shift_count   => 0,
        in_block_of   => [],
        disable_links => [],
        enable_links  => [],
);

sub new {
    my ( $class, $args ) = @_;

    my $self = {
        %Defaults,
        %$args,
    };

    bless $self, $class;
    $self->init;
    return $self;
}

sub init {
    my $self = shift;
    $self->{text} =~ s/\r//g;
    @{$self->{lines}} = split('\n', $self->{text});
    $self->{index} = -1;
    $self->{htmllines} = [];
}

sub hasnext {
    my $self = shift;
    defined ($self->{lines}->[$self->{index} + 1]);
}


sub nextline {
    my $self = shift;
    $self->{lines}->[$self->{index} + 1];
}

sub shiftline {
    my $self = shift;
    $self->{lines}->[++$self->{index}];
}

sub unshiftline {
    my $self = shift;
    $self->{lines}->[--$self->{index}];
}

sub currentline {
    my $self = shift;
    $self->{lines}->[$self->{index}];
}

sub html {
    my $self = shift;
    join ("\n", @{$self->{htmllines}});
}

sub htmllines {
    my $self = shift;
    push @{$self->{htmllines}}, $_[0] if defined $_[0];
    $self->{htmllines};
}

sub lasthtmlline { $_[0]->{htmllines}->[-1]; }

sub list_level {
    my $self = shift;
}

1;