eval "use Foo::Bar";

unless ($@) {
    sub my_method { # Code }
}