sub use_object_somehow {
      my ($obj, $foo, $bar) = @_;

      carp "Object doesn't quack right" and return
        unless _check_obj($obj, qw(foo bar));

      $obj->foo($foo);
      $obj->bar($bar);
    }