package IIa66da94aed9b371a0ee16b72f938ea09::tag_if; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext) = @_; my $expr = $attr->{var} ? "#{$attr->{var}}" : $attr->{array} ? "ref(#{$attr->{array}}) eq 'ARRAY' && scalar(\@{ #{$attr->{array}} }) > 0" : $attr->{expr}; $this->evaluate for $expr; $this->addCode("if ( $expr ) {"); $this->{Indent}++; return; } sub end { my $this = shift; $this->endBracket(@_); } 1; 