Select Code to Download

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

sub bar {
    return $_[0]->{bar};
...
    my ($self, $want) = @_;
    return $self->{$want};
}