Select Code to Download

sub wrap_render {
  local $x=shift;
...
    return render();
  }
}

sub render_a {
  print "<a ";
  print "style='$css'" if $global_css_flag;
  print ">"
}

sub render_a {
  my $style=get_css();
...
  }
  sub css_flag { if (@_) {$css_flag=shift} else {$css_flag} }  # gette
+r-setter
}