| ¾Û :: ²öÀû ²öÀûÇÑ GIT FASHIONÀÇ ÇÏÀ§ ÀÀ¿ë ÇÁ·Î±×·¥¿¡ ´ëÇÑ ·¡ÆÛ - ½ºÅ©¸³Æ®¿¡ ´ëÇÑ ¼öÁ¤ ¾øÀ½, ¸ðµâ |
Áö±Ý ´Ù¿î·Îµå |
¾Û :: ²öÀû ²öÀûÇÑ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Nadim Khemir
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~nkh/
¾Û :: ²öÀû ²öÀûÇÑ Å±×
¾Û :: ²öÀû ²öÀûÇÑ ¼³¸í
Git FashionÀÇ ÇÏÀ§ ÀÀ¿ë ÇÁ·Î±×·¥¿¡ ´ëÇÑ ·¡ÆÛ - ½ºÅ©¸³Æ®¿¡ ´ëÇÑ ¼öÁ¤ ¾øÀ½, ¸ðµâ App :: Chained´Â ÀÀ¿ë ÇÁ·Î±×·¥ ÇÁ·±Æ® ¿£µå¸¦ ´Ù¸¥ ÀÀ¿ë ÇÁ·Î±×·¥¿¡ ±¸ÇöÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. git ¸í·ÉÀÌ ¸¹Àº git-* sub ¸í·ÉÀÇ ÇÁ·±Æ® ¿£µåÀ̱⠶§¹®¿¡, TEST_WRAPPER.P TEST_APPLICATION TEST_MODULE.PM TEST_TEMPLATEL¿¡¼ ºÐÆ÷ÀÇ TEST_MODULE.PM TEST_TEMPLATEL¿¡¼ ãÀ» ¼ö ÀÖ½À´Ï´Ù. ÆÐÅ°Áö ÀÀ¿ë ÇÁ·Î±×·¥ :: üÀÎ :: Å×½ºÆ®; ºÎ¸ðÀÇ 'app :: chained'; ¿ì¸®ÀÇ $ version = '0.03'; = HEAD1ÀÌ ·¡ÆÛ ¼³¸í¼ B Çʵ带 B = CUT SUB RUN {MY ($ È£ÃâÀÚ, @SETUP_DATA) = @_; $ chained_app = app :: chained-> new (help => \ app :: chained :: get_help_from_pod, version => $ ¹öÀü, apropos => undef, faq => undef, getopt_data => []; sub_apps => { test_application => {desement => '½ÇÇà ÆÄÀÏ', run => sub {my ($ self, $ mode, $ arguments) = @_; system './test_application'. °¡ÀÔ ( '', @ $ Àμö}); }, ...},}, @setup_data,); $ chained_app, $ class; $ chained_app-> parse_command_line (); $ chained_app-> super :: run (); } # --------------------------------------------------------------------------------------- -------------------------------- ÆÐÅ°Áö ¸ÞÀÎ; app :: chained :: test-> ½ÇÇà (command_line_arguments => \ @argv); ¿ä±¸ »çÇ× : ¡¤ Perl.
¾Û :: ²öÀû ²öÀûÇÑ °ü·Ã ¼ÒÇÁÆ®¿þ¾î