use My::Module;
use Assert::Refute qw(:all), {on_fail => 'carp'};
use Assert::Refute::T::Numeric;

my $foo = My::Module->bloated_untestable_method;

refute_these {
    like $foo->{bar}, qr/f?o?r?m?a?t/;
    can_ok $foo->{baz}, qw(do_this do_that frobnicate);
    is_between $foo->{price}, 10, 1000, "Price is reasonable";
};