[Templates-cvs] cvs commit: TT3/lib/Template/Tagset/TT Interpolate.pm

Wed, 10 Nov 2004 17:59:47 +0000

cvs         04/11/10 17:59:47

  Added:       lib/Template/Tagset/TT Interpolate.pm
  Log:
  * added Template::Tagset::TT::Interpolate as a subset of T::T::TT to define
    the various tags associated with variable interpolation

  Revision  Changes    Path
  1.1                  TT3/lib/Template/Tagset/TT/Interpolate.pm

  Index: Interpolate.pm
  ===================================================================
  #========================================================================
  #
  # Template::Tagset::TT::Interpolate
  #
  # DESCRIPTION
  #   Tagset defining the set of TT tags that are used for interpolating
  #   variables in plain text: Template::Tag::Variable ($foo), Embedded
  #   (${foo.bar}) and Escape (\$).
  # 
  # AUTHOR
  #   Andy Wardley <abw@wardley.org>
  #
  # COPYRIGHT
  #   Copyright (C) 1996-2004 Andy Wardley.  All Rights Reserved.
  #
  #   This module is free software; you can redistribute it and/or
  #   modify it under the same terms as Perl itself.
  #
  # REVISION
  #   $Id: Interpolate.pm,v 1.1 2004/11/10 17:59:47 abw Exp $
  #
  #========================================================================

  package Template::Tagset::TT::Interpolate;

  use strict;
  use warnings;
  use Template::Tag::Escape;
  use Template::Tag::Embedded;
  use Template::Tag::Variable;
  use Template::Tagset;
  use base qw( Template::Tagset );

  our $VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
  our $DEBUG   = 0 unless defined $DEBUG;
  our $ERROR   = '';
  our $TAGS    = [
      escape   => 'Template::Tag::Escape',
      variable => 'Template::Tag::Variable',
      embedded => 'Template::Tag::Embedded',
  ];

  1;
  __END__

  =head1 NAME

  Template::Tagset::TT::Interpolate - tagset implementing variable interpolation

  =head1 SYNOPSIS

  TODO

  =head1 DESCRIPTION

  # TODO

  =head1 METHODS

  =head2 new()

  # TODO

  =head1 AUTHOR

  Andy Wardley  E<lt>abw@wardley.orgE<gt>

  =head1 VERSION

  $Revision: 1.1 $

  =head1 COPYRIGHT

  This module is free software; you can redistribute it and/or
  modify it under the same terms as Perl itself.

  =cut

  # Local Variables:
  # mode: perl
  # perl-indent-level: 4
  # indent-tabs-mode: nil
  # End:
  #
  # vim: expandtab shiftwidth=4: