| Basset :: Machine Basset :: Machine is een PERL-module die wordt gebruikt voor de vermogensmachines. |
Download nu |
Basset :: Machine Rangschikking & Samenvatting
- Vergunning:
- Perl Artistic License
- Naam uitgever:
- Jim Thomason
- Uitgever website:
- http://search.cpan.org/~jimt/Basset-1.04/lib/Basset/Machine.pm
Basset :: Machine Tags
Basset :: Machine Beschrijving
Basset :: Machine is een Perl-module die wordt gebruikt voor de vermogensmachines. Basset :: Machine is een Perl-module die wordt gebruikt voor de staatsmachines.Synopsisan-voorbeeld is het beste. Laten we een eenvoudige proberen. pakket mijn :: machine; Gebruik Basset :: Object; Basset :: Object-> Inherits (__ Pakket__, 'Machine'); Substart {Return Shift-> Status ('Login'); } sublogin {mijn $ zelf = verschuiving; mijn $ heap = $ self-> heap; if ($ heap -> {'loggedin'}) {return $ self-> staat ('succes'); } anders {return $ self-> staat ('prompt'); }} subprompt {mijn $ zelf = verschuiving; Print "Voer uw gebruikersnaam in (moet 'Bob' zijn):"; Chomp (mijn $ naam =); $ self -> {'heap'} -> {'loggedin'} = 1 als $ naam EQ 'BOB'; retourneer $ self-> toestand ('login'); } sub succes {mijn $ self = shift; Print "U bent ingelogde Inn"; retourneer $ self-> beëindiging; } 1; --- #! / usr / bin / perl Gebruik mijn :: machine; Mijn :: machine-> uitvoeren; Vereisten: · Perl
Basset :: Machine Gerelateerde software