| Ŭ·¡½º :: AbstractLogic. Ŭ·¡½º :: AbstractLogicÀº ³í¸® Ãß»óȸ¦ ó¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Ŭ·¡½º :: AbstractLogic. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Robert Sedlacek
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~phaylon/
Ŭ·¡½º :: AbstractLogic. ű×
Ŭ·¡½º :: AbstractLogic. ¼³¸í
Ŭ·¡½º :: AbstractLogicÀº ³í¸® Ãß»óȸ¦ ó¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Ŭ·¡½º :: AbstractLogicÀº ³í¸® Ãß»óȸ¦ ó¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù .Snopsis # ³í¸® Ŭ·¡½º Á¤ÀÇ ÆÐÅ°Áö My :: Logic :: Foo; Ŭ·¡½º :: AbstractLogic-Base¸¦ »ç¿ëÇϽʽÿÀ. # ³í¸® µ¿ÀÛ µ¿ÀÛ 'Ãß°¡', , {a => sub {/ ^ d + $ /}, b => sub {/ ^ d + $ /}}, sub {$ _ {a } + $ _ {b}}; 1; ... # ³í¸® ¸ðµâ °ü¸®ÀÚ »ý¼º Ŭ·¡½º :: AbstractLogic; MY $ CALM = Ŭ·¡½º :: AbstractLogic :: Manager-> New; # ³í¸® Ŭ·¡½º·Îµå $ calm-> load_logic (foo => 'my :: logic :: foo'); # logic ¸Þ¼Òµå¿¡¼ °á°ú ¿äû My $ °á°ú = $ calm-> logic ( 'foo') -> add (a => 11, b => 12); # $ °á°ú´Â ($ °á°ú) {print '°á°ú°¡'¿´´ÂÁö ¿¹¿Ü°¡ °É¸®¸é false°¡µË´Ï´Ù. $ result-> °ª. "N"; } else {print '¿¹¿Ü°¡ ¹ß»ýÇß½À´Ï´Ù.' $ result-> Å°. "N"; '¿À·ù ¸Þ½ÃÁö¸¦ ÀμâÇϽʽÿÀ.'. $ result-> ¿À·ù. "N"; } ¿ä±¸ »çÇ× : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.
Ŭ·¡½º :: AbstractLogic. °ü·Ã ¼ÒÇÁÆ®¿þ¾î