Clase :: Strongsingleton Clase :: Strongsingleton es una clase base de Singleton más fuerte y más segura.
Descargar ahora

Clase :: Strongsingleton Clasificación y resumen

Clase :: Strongsingleton Etiquetas

Seguro Módulo perl clase de singleton único clase segura

Clase :: Strongsingleton Descripción

Clase :: Strongsingleton es una clase base de Singleton más fuerte y más segura. Clase :: Strongsingleton es un paquete de Singleton Base Singleton más fuerte y más seguro. Paquete de HSYNOPSIS MI :: Singleton :: Class; Use Base QW (Clase :: Strongsingleton); Sub nuevo {My ($ clase,% my_params) = @_; # Crear nuestra instancia de objeto My $ instancia = {% my_params}; bendice ($ instancia, $ clase); # e inicializarlo como una instancia de Singleton $ -> _ init_strongsingleton (); devolver $ instancia; } 1; # Más tarde en su código ... # Crear la primera instancia de nuestra clase My $ Instancia = My :: Singleton :: Class-> Nuevo (param => "valor"); # Trate de crear una "nueva" otra vez, y # Usted termina con la misma instancia, no # una nueva My $ instance2 = My :: Singleton :: Class-> Nuevo (param => "Otro valor"); # Llamar 'instancia' devuelve la instancia de Singleton # esperaba mi instancia $ = mi :: Singleton :: Class-> Instancia (); # Aunque rara vez se necesita, si tienes que # puedes destruir el Singleton #, ya sea a través de la instancia $ instancia-> destruir (); # oa través de la clase My :: Singleton :: Class-> Destroy (); #, por supuesto, esto le está asumiendo que usted # no anuló Destar a usted mismo # también llamar "instancia" antes de llamar a 'New' # devolverá una nueva instancia de Singleton My $ Instancia = My :: Singleton :: Class-> Instancia (); Este módulo es una alternativa a la clase :: Singleton y Class :: Weightsingleton, y proporciona una clase de Singleton más segura, ya que se necesita medidas para evitar la posibilidad de creación accidental de múltiples instancias y / o la sobrescritura de las instancias de Singleton. Para una comparación detallada, consulte la sección "Ver también". Aquí hay una descripción de cómo funciona todo. Primero, el usuario crea la primera instancia de Singleton de la clase de la manera normal. My $ obj = mi :: Singleton :: Class-> Nuevo ("Variable", "Parámetro"); Esta instancia se almacena dentro de una variable de alojamiento léxicamente dentro del paquete de clase :: Strongsingleton. Esto evita que la variable se acceda por cualquier cosa, excepto los métodos del paquete de clase :: Strongsingleton. En este punto, también, el nuevo método para la clase se anula para que siempre devuelva la instancia de Singleton. Esto evita cualquier sobrescritura accidental de la instancia de Singleton. Esto significa que cualquiera de las siguientes líneas de código produce la misma instancia: My $ instancia = $ obj-> instancia (); My $ instancia = mi :: Singleton :: Class-> Instancia (); My $ instancia = $ obj-> nuevo (); My $ Instancia = My :: Singleton :: Class-> New (); Personalmente, veo esta una mejora en la pandilla habitual de los cuatro singletos de estilo que desalienta el uso del nuevo método. A través de este método, un usuario puede ser capaz de usar la clase de Singleton de una manera normal, no tener que saber que en realidad es un singleton. Esto puede ser útil si su diseño cambia y ya no necesita la clase como singleton. Requisitos: · Perl

Clase :: Strongsingleton Software relacionado