Последнее в категории CPAN

Ох, моноглоты.

Печатаем содержимое хеша, видим буквы:

Александр Хаус Бутик-Отель
Отель Мэрибель
Отель Звездный
Гостиница Южная
Гостиница Октябрьская

Берем модуль JSON, делаем семь шагов дао по инструкции, получаем фигу:

... "name":"Бутик-Отель РахманиР... 
"name":"Отель Амулет на Большом проспР...
"name":"Мини-Отель Золотой ЛР...

На спане есть модуль Филипа BooK Брухата для работы с репозиторием гита из программы на перле — Git::Repository.

Модуль предоставляет простой интерфейс для работы с гитом:

Хотя необходимости знать команды и ключи гита при работе с Git::Repository не избежать, наверняка использование модуля окажется несколько более удобным, чем «ручное» создание в программе строки шела и исполнение ее в обратных кавычках.

На perlcast.com — интервью со Стеваном Литтлом, создателем Moose.

На спане — модуль для Perl-гольфистов Acme::Minify.

В очередной раз подумалось, что код из блока SYNOPSIS POD-документации модулей на спане нужно автоматически включать в набор тестов.

Вот модуль Time::Business, судя по описанию, полезный: умеет переводить рабочие часы в «общечеловеческие». CPAN сообщает о десятках успешных тестов на разных платформах. Но в действительности к модулю прилагается только тест use_ok (это не самое страшное), а код из краткого описания не работает:

Понятно, что дальнейшее чтение документации помогает добиться работоспособности, но внутренний голос сразу начинает говорить о том, что как-то и все остальное некрасиво: и странный формат записи времени (а что, если записать 0800 — не в восьмеричном ли формате это получится?), и капслок в именах ключей, и отсутствие предопределенных значений — собственно, все то, что замечаешь при первом взгляде, но что лишь усиливает негатив после того, как первый тест не заработал.

Для этого фокуса потребуется взять один Class::Accessor и один Test::Deep, замешав их в одном модуле:

Модуль Class::Accessor создаст в пакете MyTest метод mytest(), который должен работать как пара сеттер — геттер для установки поля mytest (точнее, $self->{mytest}). Тестируем:

И видим, что никакое значение mytest=test не устанавливается. Комментируем в файле MyTest.pm строку, подключающую модуль Test::Deep, и все работает:

Раскомментируем обратно и попробуем немного по-другому:

Опять не работает. Но по-другому мы пробуем уже после того, как заглянули в исходник Test::Deep и увидели там безусловный экспорт функции set:

В свою очередь, внутри методов-аккессоров, которые создает Class::Accessor, используются вызовы $self->set(...), которые в модуле, унаследованном от него, попадают напрямую в Test::Deep::set().

Неуклюжее быстрое решение: подсказать компилятору, куда направлять внутренние вызовы методов set:

На спане есть модуль Инги дёт Нета (Брайана Ингерсона) под названием XXX, предназначенный для — ха! — для отладки.

Модуль экспортирует несколько функций WWW, XXX, YYY и ZZZ, которые печатают дамп того, что находится справа. То есть достаточно вписать в нужное место XXX, и выполнение программы прекратится отладочным сообщением:

По умолчанию дамп делается в формате YAML, но это возможно переопределить, например:

Вызов XXX приводит к завершению программы (die), а WWW печатает предупреждение (warn).

Несмотря на то, что все равно приходится явно подключать модуль (use XXX), подход очень интересный: написать в начале (или любой другой части — функция возвращает все свои аргументы) строки три буквы (хотя еще удобнее было бы, если бы названия функция были в нижнем регистре) намного проще и быстрее, чем, например, say Data::Dumper($var).

Йозеф Кутей обновил дистрибутив Universe::Galaxy, который содержит модуль с бесконечным названием Universe::ObservableUniverse::Filament::SuperCluster::Cluster:: Group::Galaxy::Arm::Bubble::InterstellarCloud::SolarSystem::Earth.

Из двух доступных методов нам важен ultimate_answer, который дает ответ на главный вопрос жизни, вселенной и всего такого.

А еще на спане есть модуль Acme::Test::42, который работает аналогично любому другому современному модулю, основанном на Test::Builder, но проверяет, вычислен ли ответ на главный вопрос.

Соответственно, тестируем:

Сегодня на DevConf::Perl рассказал про то, как авторы модулей CPAN используют новые возможности, доступные в Perl 5.10, и о том, что нового появилось в 5.12. Кстати, как раз сегодня появился релиз Perl 5.12.1.

Идея собрать примеры использования со спана появилась спонтанно перед поездкой на Perlburg в начале этого года (хотя вначале я хотел всего лишь обновить свои прошлогодние «Фичи Perl 5.10 на практике», показав новые примеры своего кода).

Начиная с февраля я рассказал про Perl 5.10 на спане три раза, и, хотя каждый раз появлялось что-то новое (и почти полностью менялась аудитория), я немного устал от этого набора слайдов. Теперь хочу подготовить большой обзор существующего сегодня кода на Perl 6. Премьера 26 июня в Брюсселе.

Из ментальных записок системного администратора.

Так, а что это записи в Твиттере давно не обновлялись? Ага, в кроне скрипт не закомментирован. Запускаю вручную.

Хопа! Обновился до 5.12, а Class::MOP не поставил. (Кстати, всегда считал, что P — это programming, а недавно узнал, что это protocol.)

Хоп, это модный модерновый модуль-то не ставится на автомате? А, там Devel::GlobalDestruction не прошел тесты и все разрушил. Ну так и название — Глобальное Разрушение.

Поставили. Встал и Class::MOP. Запускаю. Хоп!

Чо? Я должен пройти курс мета-программирования? Да мне надо всего лишь фигачить посты в Твиттер, там и буков-то не хватит для таких названий гета-мета-хуета-эйяфьятлайокудль. Кстати, Твиттер был бы другим, если бы его придумали исландцы.

Ну ладно, обновлю и Лосика.

О, сам установился. Ну все, победа, первомай.

Опа, а надо было же запустить скрипт из крона (за всем этим модернизмом и забыл).

Ну ё, опять просят магию. Что там, поставим.

Тут где-то была хорошая цитата про Муз в рассылке.

Музмаздай, что ли.

• Брайн ди фой пишет новую редакцию книги Effective Perl Programming.
• С новым маком и Mac OS X 10.6 в комплекте идет Perl 5.10.0.
• Алекс Капранов анонсировал CPAN Hubble — одновременный поиск по CPAN и GitHub.