use strict;
use warnings;
use 5.010;

use Test::More;
use Class::Method::Modifiers;

sub makebold {

    my ($orig, @args) = @_;
    return '<b>'.$orig->(@args).'</b>';

}

sub hello {

    return "ohai";

}

around 'hello' => \&makebold;

is(hello(), '<b>ohai</b>');

done_testing;