use My::Wrapper qw( wrap );

wrap( \&foo_bar );

sub foo_bar {
    my %params = %{shift()};
    my $T_ref = $params{T};

    $T_ref->{msg} = "Foo Bar";

    return;
}