21 |
|
# tagstartline() : return the linenumber of the last tag opening |
22 |
|
# includeparse(Parse) : include the settings from another parse object |
23 |
|
# tags() : return list of defined tags |
24 |
+ |
# cleartags() : clear of all tags |
25 |
|
|
26 |
|
|
27 |
|
package ActiveDoc::Parse; |
115 |
|
"",$self, \&Ignore_End,$self); |
116 |
|
} |
117 |
|
|
118 |
+ |
sub cleartags { |
119 |
+ |
my $self=shift; |
120 |
+ |
$self->{tags}->cleartags(); |
121 |
+ |
} |
122 |
+ |
|
123 |
+ |
sub tags { |
124 |
+ |
my $self=shift; |
125 |
+ |
return $self->{tags}->tags(); |
126 |
+ |
} |
127 |
+ |
|
128 |
|
# --------- Basic Group Related Tags --------------------------------- |
129 |
|
|
130 |
|
sub Group_Start { |
154 |
|
$self->{gc}->opencontext("ignore"); |
155 |
|
} |
156 |
|
|
146 |
– |
sub tags { |
147 |
– |
my $self=shift; |
148 |
– |
return $self->{tags}->tags(); |
149 |
– |
} |
157 |
|
sub Ignore_End { |
158 |
|
my $self=shift; |
159 |
|
$self->{gc}->closecontext("ignore"); |