| Devel :: Represine :: Subs. ƯÁ¤ ÅؽºÆ®°¡ Æ÷ÇÔ µÈ ¼ºê ·çƾ À̸§ °¡Á® ¿À±â |
Áö±Ý ´Ù¿î·Îµå |
Devel :: Represine :: Subs. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Steve Bertrand
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~steveb/
Devel :: Represine :: Subs. ű×
Devel :: Represine :: Subs. ¼³¸í
devel :: reseine :: subs´Â perl ÇÁ·Î±×·¥ ¹× ¸ðµâ ÆÄÀÏ·Î ÀнÀ´Ï´Ù. ÁöÁ¤µÈ text.synopsis »ç¿ë devel :: sexine :: subs; ³» $ file = 'perl.pl'; $ find = 'ÇÔ¼ö ('sub¿¡ ÅؽºÆ®°¡ Æ÷ÇÔ µÈ ÇÏÀ§ À̸§ ¸ñ·Ï "ÇÔ¼ö ("@has = devel :: {file => $ file, search => $) ã±â}); # @ @missing = devel :: resetine :: subs-> ´©¶ô µÈ ({file => $ file, search => $ find}) ¹Ý´ëÂÊÀ» ¹ÝȯÇÕ´Ï´Ù. # ¸ðµç ÇÏÀ§ À̸§ °¡Á® ¿À±â ÆÄÀÏ¿¡¼ my @subs = devel :: reseine :: subs-> all ({file => $ file}); # ¿©·¯ ¹ø È£ÃâÀ» ¸¸µé¸é ŸÀÌÇÎÀ» ÀúÀåÇÒ ¼öÀÖ´Â OO ÀÎÅÍÆäÀ̽ºµµ ÀÖ½À´Ï´Ù. $ des = devel : : reseinine :: subs-> new (); $ des-> have (...); $ des-> ´©¶ô µÈ (...); $ des-> ¸ðµç (...); Á¦Ç°ÀÇ È¨ÆäÀÌÁö
Devel :: Represine :: Subs. °ü·Ã ¼ÒÇÁÆ®¿þ¾î