6 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
8 ###############################################################################
12 TmplTokenType.pm - Types of TmplToken objects
16 This is a Java-style "safe enum" singleton class for types of TmplToken objects.
20 ###############################################################################
36 ###############################################################################
38 use vars qw( $_text $_cdata $_tag $_decl $_pi $_directive $_comment $_unknown );
42 my $this = 'TmplTokenType';#shift;
43 my $class = ref($this) || $this;
46 ($self->{'id'}, $self->{'name'}, $self->{'desc'}) = @_;
49 $_text = &$new(0, 'TEXT');
50 $_cdata = &$new(1, 'CDATA');
51 $_tag = &$new(2, 'TAG');
52 $_decl = &$new(3, 'DECL');
53 $_pi = &$new(4, 'PI');
54 $_directive = &$new(5, 'DIRECTIVE');
55 $_comment = &$new(6, 'COMMENT');
56 $_unknown = &$new(7, 'UNKNOWN');
61 return $this->{'name'}
64 sub TEXT () { $_text }
65 sub CDATA () { $_cdata }
67 sub DECL () { $_decl }
69 sub DIRECTIVE () { $_directive }
70 sub COMMENT () { $_comment }
71 sub UNKNOWN () { $_unknown }
73 ###############################################################################