Basset :: Machine

Basset :: La machine est un module Perl utilisé pour les machines d'état.
Télécharger maintenant

Basset :: Machine Classement & Résumé

Publicité

  • Rating:
  • Licence:
  • Perl Artistic License
  • Prix:
  • FREE
  • Nom de l'éditeur:
  • Jim Thomason
  • Site Internet de l'éditeur:
  • http://search.cpan.org/~jimt/Basset-1.04/lib/Basset/Machine.pm

Basset :: Machine Mots clés


Basset :: Machine La description

Basset :: La machine est un module Perl utilisé pour les machines d'état. Basset :: La machine est un module Perl utilisé pour indiquer des machines. L'exemple de Nopsisan est le meilleur. Essayons un simple. Paquet My :: Machine; utiliser basset :: objet; Basset :: Object-> hérite (__ paquet__, 'machine'); Sous-démarrage {retour shift-> état ('login'); } Sous-login {My $ Self = Shift; My $ tas = $ auto-> tas; Si ($ tas -> {'LogfedIn'}) {Retour $ Self-> Etat ("succès"); } else {retour $ $ auto-> Etat ('Invite'); }} Sous-invite {My $ Self = Shift; Imprimer "Veuillez entrer votre nom d'utilisateur (doit être" Bob "):"; chomp (mon $ nom =); $ auto -> {'heap'} -> {'journalisé'} = 1 si $ nom eq 'bob'; Retour $ auto-> Etat ('Login'); } sous succès {My $ Self = Shift; Imprimer "Vous êtes log fijoud Inn"; retour $ $ auto-> Terminez; } 1; --- #! / USR / bin / perl Utilisez ma machine :: Machine; Mon :: machine-> exécuter; Exigences: · Perl


Basset :: Machine Logiciels associés