sub _do_as (&$) {
    my($block, $fake_class) = @_;
    local *Object::Test::isa = sub {
        my($self, $target_class) = @_;
        return $target_class eq $fake_class || 
            $self->SUPER::isa($target_class);
    };
    $block->();
}