Интересности Perl

Как-то совсем давно я ничего не писал, думаю уже пора :). Не так давно прошла конференция BlackPerl 2011. Я думаю, что уже многие в курсе относительного этого события.
Я на конференцию ехал без доклада, просто с желанием познакомится с Perl-комьюнити, послушать других и пофотографировать сие действо. Но вдохновленный докладчиками, решил и сам соорудить небольшое выступление. Поскольку, конкретной темы у меня не было, я решил просто рассказать про интересные вещи в Perl. Ничего особенного, но возможно кто-то найдет для себя что-то новое.

Приступим.

Приватные методы

В Perl возможно реализовать приватные методы и делается это следующим образом:

	# Private accessors/methods
	# Помещаем ссылку на локальную анонимную функцию в локальную переменную
	my $name = sub {
	my $self = shift;
	...
	}
	# Используем как обыкновенный метод, но доступен оно только внутри класса
	$self->$name();
	$self->$name('viktor');

view raw perl_private_methods.pl hosted with ❤ by GitHub

Недостаток такого подхода в том, что caller будет нам возвращать "__ANON__" в качестве имени нашего метода. И stack trace будет нечитабельным.

Дальше »