- or download this
if ($x and ! $y) {
...
}
...
else {
...
}
- or download this
1 sub _synch_arrays {
2 # if the method is called from a token generated by the get_ta
+g() method,
3 # the returned array reference will be identical to a start or
+ end tag
...
23 }
24 return ( $array_ref, $tag_func );
25 }
- or download this
1 sub as_is {
2 my ( $self, $method ) = _synch_arrays( shift );
3 my $type = $self->[0];
...
5 shift @$self if $method == GET_TAG;
6 return $text;
7 }