Ŭ·¡½º :: ¿öÅ© Ç÷ΰ淮 ¿öÅ© ÇÃ·Î¿ì ½Ã½ºÅÛ. | |
Áö±Ý ´Ù¿î·Îµå |
Ŭ·¡½º :: ¿öÅ© Ç÷Π¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Yuval Kogman
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~nobull/
Ŭ·¡½º :: ¿öÅ© Ç÷Πű×
Ŭ·¡½º :: ¿öÅ© Ç÷Π¼³¸í
°¡º¿î ¹«°Ô ¿öÅ© ÇÃ·Î¿ì ½Ã½ºÅÛ. Ŭ·¡½º :: ¿öÅ© Ç÷δ °¡º¿î ¿öÅ© Ç÷Π½Ã½ºÅÛÀÔ´Ï´Ù .Snopsis Ŭ·¡½º :: ¿öÅ© ÇÃ·Î¿ì »ç¿ë; # ***** Âü°í ***** # # ÀÌ°ÍÀº ²Ï ±æ°í Áö·çÇÑ ¿¹Á¦ # # ´ç½ÅÀº ¾Æ¸¶µµ È·ÁÇÑ Ç÷¡½Ã µ¿¿µ»óÀ»º¸°í ½Í¾î, ±×·¡¼ µµº¸·Îº¸½Ê½Ã¿À. # # **** *********** # ¿öÅ© Ç÷Π°´Ã¼°¡ »óÅ / Àüȯ °´Ã¼¸¦ ¸¸µå´Â µ¥ µµ¿òÀ»ÁÝ´Ï´Ù. # ½±°Ô ±¸ÃàÀ» ½±°Ô ÇÒ ¼ö ÀÖµµ·Ï ´Ù¾çÇÑ ¿ÀºêÁ§Æ®¿¡ ±âÈ£ À̸§À» ÇÒ´ç ÇÒ ¼ö ÀÖ½À´Ï´Ù. # (¼öµ¿À¸·Î »óÅÂ, Àüȯ ¹× ÀνºÅϽº ¿ÀºêÁ§Æ®)À» ¼öµ¿À¸·Î ¸¸µé ¼ö ÀÖ½À´Ï´Ù. ],); # Ãʱ⠻óÅ $ wf-> initial_state ( "new")·Î ¼³Á¤ÇϽʽÿÀ. # ¸î °¡Áö ´õ ¸¹Àº Ç׸ñÀ» ¸¸µì´Ï´Ù $ WF-> »óÅ (name => "open", transitions => ); $ WF-> »óÅ (À̸§ => "°ÅºÎ",); # ÀüȯÀº »óÅ¿¡¼ »óÅ·ΠÀνºÅϽº¸¦ ½ÇÇàÇÕ´Ï´Ù. À̸§ ÁöÁ¤µÈ "°ÅºÎ"#ÀÌ Àüȯ #ÀÌ ÀüȯÀ» ³ªÅ¸³À´Ï´Ù. "°ÅºÎ µÈ »óÅÂ"´Â ´ë»ó »óÅ $ wf-> Àüȯ (name => "reject", to_state)ÀÔ´Ï´Ù. => "°ÅºÎ",); # "¼ö¶ô"À̶ó´Â À̸§ÀÇ ÀüȯÀ» ¸¸µì´Ï´Ù. #ÀÌ ÀüȯÀº ÄÁÅؽºÆ®¿¡¼ °ªÀ» °¡Á®¿É´Ï´Ù (ÇöÀç ÀÛµ¿ »ç¿ëÀÚ°¡ Æ÷ÇÔµÊ) # ÄÁÅؽºÆ®´Â ¹ö±× $ WF-> Àüȯ (À̸§ => "¿¡ ´ëÇÑ ÇöÀç ¼ÒÀ¯ÀÚ¸¦ ¼³Á¤ÇÏ´Â µ¥ »ç¿ëµË´Ï´Ù. ", to_state =>"opened ", body => sub {my ($ transition, $ instance, $ context) = @_; return (own => $ context-> »ç¿ëÀÚ´Â ¹Þ¾Æ µéÀÎ »ç¿ëÇÏ´Â »ç¿ë¿¡ ´ëÇÑ »ç¿ëÀÚ, # },); # ÈÄÅ©´Â »óÅ°¡ ÀÔ·Â µÉ ¶§¸¶´Ù Æ®¸®±×Å͸µµË´Ï´Ù. ÀνºÅϽº #ÀÌ ÈÅÀº Á¦ÃâÀÚ ¿ÀºêÁ§Æ® °´Ã¼ $ WF-> »óÅ ( "°ÅºÎ") -> add_hook (sub {my ($ »óÅÂ, $ ÀνºÅϽº) = @_; $ ÀνºÅϽº -> Á¦ÃâÀÚ - > ¾Ë¸² ( "Ç׸ñÀÌ °ÅºÎµÇ¾ú½À´Ï´Ù");}); # ¿öÅ© Ç÷ΠÁ¤ÀÇÀÇ ³ª¸ÓÁö ºÎºÐÀº Brevity # ¸¶Áö¸·À¸·Î ¹ö±× ÀÛ¼º ÇÏÀ§ new_bug {my ($ Á¦ÃâÀÚ, % params) = @_; $ wf-> new_instance (Á¦ÃâÀÚ => $ Á¦ÃâÀÚ, % params)¸¦ ¹ÝȯÇÕ´Ï´Ù. } ¿ä±¸ »çÇ× : ¡¤ Perl.
Ŭ·¡½º :: ¿öÅ© Ç÷Π°ü·Ã ¼ÒÇÁÆ®¿þ¾î