sub wrap_render { local $x=shift; local $y=shift; if ($var) { return "your change"; } else return render(); } } #### sub render_a { print "" } #### sub render_a { my $style=get_css(); print ""; } { my $css_flag; sub get_css { return "style='$css'" if $css_flag; } sub css_flag { if (@_) {$css_flag=shift} else {$css_flag} } # getter-setter }