Basset :: Máquina Basset :: Machine es un módulo Perl usado para estatuir máquinas.
Descargar ahora

Basset :: Máquina Clasificación y resumen

Basset :: Máquina Etiquetas

Módulo perl máquina perla Máquinas estatales máquina de afloramiento Afloramiento

Basset :: Máquina Descripción

Basset :: Machine es un módulo Perl usado para estatuir máquinas. Basset :: Machine es un módulo de Perl que se usa para estatuir máquinas. El ejemplo de SSYNOPSISAN es el mejor. Probemos uno simple. Paquete My :: Machine; Utilice Basset :: Objeto; Basset :: Objeto-> Hereda (__ Paquete__, 'máquina'); Sub START {TIPO DE RETURNO-> ESTADO ('INICIO'); } sub inicio de sesión {My $ Self = Shift; My $ Heap = $ auto-> montón; Si ($ Heap -> {'loggedin'}) {devuelve $ auto-> estado ('éxito'); } else {devuelve $ auto-> Estado ('PROMPTIDO'); }} Subst Soldt {My $ Self = Shift; Imprimir "Introduzca su nombre de usuario (debe ser 'Bob'):"; chomp (mi nombre $ =); $ yo -> {'montón'} -> {'loggedin'} = 1 si $ nombre EQ 'Bob'; Devolver $ auto-> Estado ('Iniciar sesión'); } Sub Success {My $ Self = Shift; Imprimir "Usted está registrado Inn"; Devolver $ auto-> Terminar; } 1; --- #! / usr / bin / perl usa mi :: máquina; Mi :: Machine-> Ejecute; Requisitos: · Perl

Basset :: Máquina Software relacionado