#!/usr/bin/env perl

use v5.14;

package MyClass {
	use Moose;
	use MooseX::ModifyTaggedMethods;
	use Sub::Talisman qw( Bold Italic );
	
	around methods_tagged("Bold") => sub {
		my ($orig, $self, @params) = @_;
		my $string = $self->$orig(@params);
		return "<b>$string</b>";
	};
	
	around methods_tagged("Italic") => sub {
		my ($orig, $self, @params) = @_;
		my $string = $self->$orig(@params);
		return "<i>$string</i>";
	};
	
	sub greeting :Bold :Italic {
		return "Hello World";
	}
}

say MyClass->greeting;