This file is indexed.

/usr/share/perl5/Excel/Template/TextObject.pm is in libexcel-template-perl 0.34-2.

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
84
85
86
87
88
89
90
package Excel::Template::TextObject;

use strict;

BEGIN {
    use vars qw(@ISA);
    @ISA = qw(Excel::Template::Base);

    use Excel::Template::Base;
}

# This is a helper object. It is not instantiated by the user,
# nor does it represent an XML object. Rather, certain elements,
# such as <textbox>, can use this object to do text with variable
# substitutions.

sub new
{
    my $class = shift;
    my $self = $class->SUPER::new(@_);

    $self->{STACK} = []
        unless defined $self->{STACK} &&
            ref $self->{STACK} eq 'ARRAY';

    return $self;
}

sub resolve
{
    my $self = shift;
    my ($context) = @_;

    my $use_unicode = $context->use_unicode;

    my $t;
    if ($use_unicode)
    {
        require Unicode::String;
        $t = Unicode::String::utf8('');
    }
    else
    {
        $t = '';
    }

    for my $tok (@{$self->{STACK}})
    {
        my $val = $tok;
        $val = $val->resolve($context)
            if Excel::Template::Factory::is_embedded( $val );

        $t .= $use_unicode
            ? Unicode::String::utf8("$val")
            : $val;
    }

    return $t;
}

1;
__END__

=head1 NAME

Excel::Template::TextObject - Excel::Template::TextObject

=head1 PURPOSE

=head1 NODE NAME

=head1 INHERITANCE

=head1 ATTRIBUTES

=head1 CHILDREN

=head1 AFFECTS

=head1 DEPENDENCIES

=head1 USAGE

=head1 AUTHOR

Rob Kinyon (rob.kinyon@gmail.com)

=head1 SEE ALSO

=cut