/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
|