Лучшая документация - это сам код (С)

SV *
Perl_gv_const_sv(pTHX_ GV *gv)
{
    if (SvTYPE(gv) == SVt_PVGV)
        return cv_const_sv(GvCVu(gv));
    return SvROK(gv) ? SvRV(gv) : NULL;
}

P.S.: нарушая принцип выдуманности авторов и случайности совпадений - это реальный код из исходников Perl.

Too much std and boost...
Как думаете, что делает этот код?

int line = 3;
ifstream f("somefile.txt");
string s;
while_loop(_3 != EOF, switch_statement(
 _3 = bind
  (&ifstream::get, _1),
 case_statement<(ifstream::char_type)EOF>(),
 case_statement<'\n'>(if_then(++_2 > line,
  _3 = EOF)),
 default_statement(if_then(_2 == line,
  bind(&string::push_back, &s, _3)))
 )) (f, *auto_ptr(new int(1)).get(),
  *auto_ptr(
   new ifstream::char_type(0)).get());
cout << s << endl;

Вы не любите итераторы??? Да вы просто не умеети их готовить!

std::vector< SomeClass * >::iterator it;
for ( int counter = 0; counter < v.size(); ++counter )
{
    it = v.begin() + counter;
    ( *it ) -> SomeMethod();
}

Аффтар нашёл остроумный способ сообщить об ошибке.

void * some_func()
{
  try
  {
      // some code
  }
  catch ( ... )
  {
      return (void *)(-1);
  }
  return NULL;
}

Вместо вступления

Любые фрагменты кода случайны и не имеют никакой связи с кодом реальных коммерческих проектов. Все авторы выдуманы, все совпадения случайны.