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

##</code><code>##

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";
};  

##</code><code>##

sub bar {
    return $_[0]->{bar};
}
sub baz {
    return $_[0]->{baz};
}

# or even, if attributes are related:

sub get {
    my ($self, $want) = @_;
    return $self->{$want};
}