This file is indexed.

/usr/share/perl5/Excel/Template/Base.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
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
package Excel::Template::Base;

use strict;

use Excel::Template::Factory;

sub new
{
    my $class = shift;

    push @_, %{shift @_} while ref $_[0] eq 'HASH';
    (@_ % 2)
        and die "$class->new() called with odd number of option parameters\n";

    my %x = @_;

    # Do not use a hashref-slice here because of the uppercase'ing
    my $self = {};
    $self->{uc $_} = $x{$_} for keys %x;

    bless $self, $class;
}

*isa = *isa = \&Excel::Template::Factory::isa;
*is_embedded = *is_embedded = \&Excel::Template::Factory::is_embedded;

#sub calculate { ($_[1])->get(@_[0,2]) }
#{
#    my $self = shift;
#    my ($context, $attr) = @_;
#
#    return $context->get($self, $attr);
#}

sub enter_scope { ($_[1])->enter_scope($_[0]) }
#{
#    my $self = shift;
#    my ($context) = @_;
#
#    return $context->enter_scope($self);
#}

sub exit_scope { ($_[1])->exit_scope($_[0], $_[2]) }
#{
#    my $self = shift;
#    my ($context, $no_delta) = @_;
#
#    return $context->exit_scope($self, $no_delta);
#}

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

    return {};
}

# Everyone seems to have their own versions.
# Maybe, it's part of the API to require that you have the right one of these
# defined?
#sub resolve
#{
#    my $self = shift;
#    my ($context) = @_;
#
#    '';
#}
#
#sub render
#{
#    my $self = shift;
#    my ($context) = @_;
#
#    1;
#}

1;
__END__

=head1 NAME

Excel::Template::Base - Excel::Template::Base

=head1 PURPOSE

Base class for all Excel::Template classes

=head1 NODE NAME

None

=head1 INHERITANCE

None

=head1 ATTRIBUTES

None

=head1 CHILDREN

None

=head1 EFFECTS

None

=head1 DEPENDENCIES

None

=head1 METHODS

=head2 calculate

This is a wrapper around Excel::Template::Context->get()

=head2 isa

This is a wrapper around Excel::Template::Factory->isa()

=head2 is_embedded

This is a wrapper around Excel::Template::Factory->is_embedded()

=head1 AUTHOR

Rob Kinyon (rob.kinyon@gmail.com)

=head1 SEE ALSO

=cut