Select Code to Download

my $fruit_field = q{banana};
my $food_field  = q{banana};
...
  fruit_and_food => $fruit_field eq $food_field?1:0,
);

<TMPL_IF is_a_banana>
  I'm a banana
...
<TMPL_IF fruit_and_food>
  eat fruit
</TMPL_IF>