Как я могу реализовать одноэлементный класс в perl?

Question

Какова наилучшая практика для внедрения Singletons в Perl?

Answer 1

Вы можете использовать модуль Class::Singleton.

Класс «Singleton» также может быть легко реализован с использованием переменной my или state (последняя доступна с Perl 5.10). Но см. Комментарий Майкла.

package MySingletonClass; 
use strict; 
use warnings; 
use feature 'state'; 

sub new { 
    my ($class) = @_; 
    state $instance; 

    if (! defined $instance) { 
     $instance = bless {}, $class; 
    } 
    return $instance; 
} 

Answer 2

Если вы используете Moose, то MooseX::Singleton. Его интерфейс совместим с Class :: Singleton.

Answer 3

Singleton Резюме:

• Большую часть времени нормальный объект будет работать.
• Будьте осторожны с одиночными играми.
• Локализуйте взаимодействие как можно больше

Хотя одиночки являются хорошей идеей, я, как правило, просто реализовать нормальный объект и использовать его. Если критически важно, чтобы у меня был только один такой объект, я модифицирую конструктор, чтобы вызвать фатальное исключение, когда создается второй объект. Различные модули singleton, похоже, не делают ничего, кроме добавления зависимости.

Я делаю это, потому что это легко, это работает, и когда в каком-то странном будущем мне нужно работать со вторым объектом в моем приложении, изменения сводятся к минимуму.

Мне также нравится локализовать взаимодействие с моими объектами «singleton» - поддерживать взаимодействие как можно меньше мест. Поэтому вместо каждого объекта, имеющего прямой доступ к синглтону, я посредничаю во всем взаимодействии через свой объект «Приложение». Когда это возможно, объект приложения получает данные из «singleton» и передает его в качестве параметра методу в других объектах. Ответы других объектов также могут быть отброшены и переданы в «singleton». Все это помогает, когда мне нужно внести изменения в объект «singleton», и когда я хочу повторно использовать другие объекты в другом приложении, которые могут не понадобиться или быть в состоянии использовать оригинальный объект «singleton».