sub real_decorate_h1 {
    my $sub     = shift;
    my $subname = Sub::Identify::sub_name( $sub );
    Sub::Install::reinstall_sub({
        code => sub { my @args = @_; return "<h1>" . $sub->(@args) . "</h1>" },
        as   => $subname,
    });
    return;
}