One Level Up
Top Level
lib/Lemplate/Parser.pm - lemplate
Data types defined
Source code
- package Lemplate::Parser;
- use strict;
- use warnings;
- use base 'Template::Parser';
- use Lemplate::Grammar;
- use Lemplate::Directive;
- sub new {
- my $class = shift;
- my $parser = $class->SUPER::new(
- GRAMMAR => Lemplate::Grammar->new(),
- FACTORY => 'Lemplate::Directive',
- @_,
- );
-
- my %args = @_;
-
- $parser->{EVAL_JAVASCRIPT} = exists $args{EVAL_JAVASCRIPT}
- ? $args{EVAL_JAVASCRIPT} : 1;
-
- $parser->{INJAVASCRIPT} = \$Lemplate::Directive::INJAVASCRIPT;
- return $parser;
- }
- 1;
- =encoding UTF-8
- =head1 NAME
- =head1 SYNOPSIS
- use Lemplate::Parser;
- =head1 DESCRIPTION
- =head1 AUTHOR
- cpan.
- =head1 COPYRIGHT
- L<http://www.perl.com/perl/misc/Artistic.html>
- =cut
One Level Up
Top Level