def makebold(fn):
    def wrapped():
        return "<b>" + fn() + "</b>"
    return wrapped

def makeitalic(fn):
    def wrapped():
        return "<i>" + fn() + "</i>"
    return wrapped

@makebold
@makeitalic
def hello():
    return "hello world"

print hello() ## returns <b><i>hello world</i></b>

##</code><code>##

use strict;
use warnings;

use Data::Dumper qw'Dumper';
use Attribute::Handlers;  
use feature 'say';

sub wrap {
  my ($glob,$c_wrapper) = @_;
  no warnings 'redefine';
  *$glob = $c_wrapper;
}

sub BOLD :ATTR {
  my ($pkg,$glob,$ref) = @_;
  
  wrap $glob => sub { "<b>" . $ref->() . "</b>" };
}

sub ITALIC :ATTR {
  my ($pkg,$glob,$ref) = @_;

  wrap $glob => sub { "<i>" . $ref->() . "</i>"};
}

sub hello :ITALIC :BOLD  {
    return "hello world";
}

say hello();
__END__
<b><i>hello World</i></b>