| Å×½ºÆ® :: ¹è¼Û Test :: Resub´Â Å×½ºÆ®¸¦ À§ÇØ ¾îÈÖ ÀûÀ¸·Î ¹üÀ§°¡ ÁöÁ¤µÈ ¼ºê ·çƾ ±³Ã¼ÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Å×½ºÆ® :: ¹è¼Û ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- AirWave Wireless
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~airwave/Test-Resub-1.02/lib/Test/Resub.pm
Å×½ºÆ® :: ¹è¼Û ű×
Å×½ºÆ® :: ¹è¼Û ¼³¸í
Test :: Resub´Â Å×½ºÆ®¸¦À§ÇÑ ¾îÈÖ ÀûÀ¸·Î ¹üÀ§°¡ ÁöÁ¤µÈ ¼ºê ·çƾ ±³Ã¼ÀÔ´Ï´Ù. Test :: Resub´Â Å×½ºÆÃÀ»À§ÇÑ ¾îÈÖ ÀûÀ¸·Î ¹üÀ§°¡ ÁöÁ¤µÈ ¼ºê ·çƾ ´ëüǰÀÔ´Ï´Ù. ½Ä ³ëÇÁ #! / usr / bin / perl »ç¿ë Å×½ºÆ® :: ´õ ¸¹Àº Å×½ºÆ® => 4; Å×½ºÆ® :: Àç ¹æ¼Û (RESUB); {ÆÐÅ°Áö ¾îµò°¡¿¡; ÇÏÀ§ Ç¥½Ã {my ($ class, $ message) = @_; "$ class, $ message"¸¦ ¹ÝȯÇÕ´Ï´Ù. }} # Á¤½ÅÀº (¾îµò°¡¿¡¼ -> ¹Ù´Ù¸¦ ³Ñ¾î¼ '),'¾îµò°¡¿¡¼ ¹Ù´Ù¸¦ ³Ñ¾î¼ '¶ó´Â °ÍÀÔ´Ï´Ù.); # {My $ rs = sub 'sub {hi'}, copture => 1;; (¾îµò°¡ -> ¼î (¹«Áö°³ À§·Î '),'HI '); is_deeply ($ rs-> method_args, ]); } # ¹üÀ§°¡ ³¡³³´Ï´Ù. Rovub´Â »ç¶óÁö°í, ¿ø·¡ ÄÚµå ¸®ÅÏÀº (¾îµò°¡ -> ¼î ( '³ª¸¦ ±â´Ù¸®°í'), '¾îµò°¡¿¡ ±â´Ù¸®°íÀÖ´Ù');ÀÌ ¸ðµâÀ» »ç¿ëÇÏ¸é ¼ºê ·çƾ / ¸Þ¼Òµå¸¦ ÀÓÀÇÀÇ ÄÚµå·Î ÀϽÃÀûÀ¸·Î ´ëü ÇÒ ¼ö ÀÖ½À´Ï´Ù. ³ªÁß¿¡, ¸Å¹ø Àμö°¡ ¹«¾ùÀÎÁö ¾Ë ¼ö ÀÖ½À´Ï´Ù. ¼ºê ·çƾ / ¸Þ¼µå°¡ È£ÃâµÇ¾î¾ßÇϸç È£ÃâµÇÁö ¾Ê¾Æ¾ßÇÏ¸ç ¼±ÅÃÀûÀ¸·Î È£Ãâ µÉ ¼ö ÀÖÀ½À» ÁöÁ¤ÇÒ ¼öµµ ÀÖ½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
Å×½ºÆ® :: ¹è¼Û °ü·Ã ¼ÒÇÁÆ®¿þ¾î