Basset :: 기계

Basset :: Machine은 기계를 주에 사용하는 Perl 모듈입니다.
지금 다운로드

Basset :: 기계 순위 및 요약

광고

  • Rating:
  • 특허:
  • Perl Artistic License
  • 가격:
  • FREE
  • 게시자 이름:
  • Jim Thomason
  • 게시자 웹사이트:
  • http://search.cpan.org/~jimt/Basset-1.04/lib/Basset/Machine.pm

Basset :: 기계 태그


Basset :: 기계 설명

Basset :: Machine은 기계를 주에 사용하는 Perl 모듈입니다. Basset :: Machine은 STATE MACHINES에 사용되는 PERL 모듈입니다 .SYNOPSISAN 예제가 가장 좋습니다. 단순한 것을 시도해 봅시다. 패키지 My :: 기계; Basset :: Object를 사용하십시오. Basset :: Object-> 상속 (__ 패키지 __, '시스템'); 하위 시작 {반환 시프트 -> 상태 ( '로그인'); } 하위 로그인 {내 $ self = shift; 내 $ heap = $ self-> heap; if ($ heap -> { 'loggedin'}) {$ self-> state ( '성공'); } else {$ self-> state ( '프롬프트'); }} 하위 프롬프트 {내 $ self = shift; 인쇄 "사용자 이름을 입력하십시오 ( '밥'이어야 함) :"; Chomp (My $ name =); $ self-> {힙 '} -> {'loggedin '= 1 $ name eq'bob '; $ self-> 상태 ( '로그인')를 반환합니다. } Sub Success {My $ self = shift; "당신은 로그인 한 여관"을 인쇄합니다. $ self-> terminate 리턴; } 1; --- #! / usr / bin / perl 내 :: 기계; My :: Machine-> 실행; 요구 사항 : · Perl.


Basset :: 기계 관련 소프트웨어

회사 소개