File Coverage

blib/lib/HTML/Template/Compiled/Classic.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	4	4	100.0
condition	2	2	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	37	38	97.3

package HTML::Template::Compiled::Classic;
use strict;
use warnings;
our $VERSION = '1.002_001'; # TRIAL VERSION

use base 'HTML::Template::Compiled';
use HTML::Template::Compiled::Compiler::Classic;

sub compiler_class { 'HTML::Template::Compiled::Compiler::Classic' }

sub _get_var_global_sub {
    my ($self, $P, $ref, $final, @paths) = @_;
    my $key = $paths[0]->[1];
    my $stack = $self->get_globalstack || [];
    for my $item ( $ref, reverse @$stack ) {
        next unless exists $item->{$key};
        my $var = $item->{$key};
        ref $var eq 'CODE' and $var = $var->();
        return $var;
    }
    return;
}

# returns if the var is valid
# only allow '.', '/', '+', '-' and '_'
# fix 2012-05-14: HTML::Template allows every character
# although the documentation says it doesn't.
sub validate_var {
    return 1;
#    return $_[1] !~ tr#a-zA-Z0-9._/-##c;
}


1;

__END__