Select Code to Download

    sub use_object_somehow {
      my ($obj, $foo, $bar) = @_;
...
      $obj->foo($foo);
      $obj->bar($bar);
    }

    sub _check_obj {
      my ($obj, @methods) = @_;
...

      return 1;
    }

    sub use_object_somehow {
      my ($obj, $foo, $bar) = @_;
...
      $obj->foo($foo);
      $obj->bar($bar);
    }