Validation::Class - то, что нам нужно!

Господа Perl-разработчики, на CPAN появился замечательный модуль Validation::Class. Прелесть его заключается в его парадигме и хорошей документации:

http://search.cpan.org/~awncorp/Validation-Class-0.110280/lib/Validation/Class.pm

Есть скринкаст, доходчиво объясняющий парадигму этого модуля:

http://b.ana.io/post/12275755157/validation-class-overview-screencast-in-this

Следует внедрить использование этого модуля в нашем перловом коде.

Новая фича в demarshal()

В demarshal() добавлена костыль фича для автоматичекого перекодирования значений свойств в кодировку системы. Для включения у свойства данного функционала, требуется установить атрибут force_encode в карте маршалинга.

За подробностями прошу в http://pod.ezn-dev01.rutube.corp/perldoc/Rutube::Obj::Persistent

Вывод XML на сайте.

У базового приложения в сайте появился метод output_xml(). Enjoy!

Интерфейс балансера

1. В транке появился клиент балансера - Rutube::VideoBalancer2. Из полезного функционала на текущий момент позволяет выполнять RPC-вызовы API балансера.
2. После короткого обсжудения, пакет RPC::XML принят дефакто стандартом для использования в перловом коде. С его помощью можно создавать как клиентов, так и серверы XML-RPC.

Cтранное поведение Perl

perl -e "sub a { use strict; some_shit {print 'ass'; return 1;}; }; print a();"

Что вернёт код?

Атомарная операция test-and-set на мемкеше

Из доки на мемкеш-клиент:

    # Do atomic test-and-set operations.
   my $cas_val = $memd->gets('nkey');
   $$cas_val[1] = 0 if $$cas_val[1] == 12;
   if ($memd->cas('nkey', @$cas_val)) {
       print "OK, value updated\n";
   } else {
       print "Update failed, probably another client"
           . " has updated the value\n";
   }