| ¼ÒÇÁÆ®¿þ¾î :: Packager :: Object. ¼ÒÇÁÆ®¿þ¾î :: Packager :: Object´Â ÀÏ¹Ý ¿ÀºêÁ§Æ® µ¥ÀÌÅÍ ÀúÀå¼ÒÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¼ÒÇÁÆ®¿þ¾î :: Packager :: Object. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- R Bernard Davison
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~rbdavison/XML-API-WIX2-0.02/lib/XML/API/WIX2.pm
¼ÒÇÁÆ®¿þ¾î :: Packager :: Object. ű×
¼ÒÇÁÆ®¿þ¾î :: Packager :: Object. ¼³¸í
¼ÒÇÁÆ®¿þ¾î :: Packager :: Object´Â ÀÏ¹Ý ¿ÀºêÁ§Æ® µ¥ÀÌÅÍ ÀúÀå¼ÒÀÔ´Ï´Ù. ¼ÒÇÁÆ®¿þ¾î :: Packager :: Object´Â ÀÏ¹Ý ¿ÀºêÁ§Æ® µ¥ÀÌÅÍ ÀúÀå¼ÒÀÔ´Ï´Ù. ½Ä ³ëÇÁ »çÀÌÆ® ¼ÒÇÁÆ®¿þ¾î :: Packager :: Object;ÀÌ ¸ðµâÀº ¼ÒÇÁÆ®¿þ¾î ÆÐÅ°Áö¿¡ Ãß°¡ µÈ °¢ Ç׸ñ¿¡ ´ëÇÑ µ¥ÀÌÅ͸¦ º¸À¯Çϱâ À§ÇØ ¼ÒÇÁÆ®¿þ¾î :: Packager°¡ »ç¿ëÇÕ´Ï´Ù. ¼³Ä¡ÇÒ °¢ °´Ã¼ÀÇ µ¥ÀÌÅÍ¿¡ ½±°Ô ¾×¼¼½º ÇÒ ¼öÀÖ´Â ¹æ¹ýÀ» Á¦°øÇÕ´Ï´Ù. ÀÌ ¸ðµâÀº EASY SUB Ŭ·¡½º ¹× / ¶Ç´Â EXTENDED.SUB-CLASSINGTO È®Àå ¶Ç´Â ÇÏÀ§ Ŭ·¡½ºÀÌ ¸ðµâÀ» È®Àå ÇÒ ¼ö ÀÖµµ·Ï ¼³°èµÇ¾ú½À´Ï´Ù.ÀÌ ¸ðµâÀº ÆÐÅ°Áö foo ÁÙÀ» µû¶ó »õ ¸ðµâÀ» ¸¸µì´Ï´Ù. ¼ÒÇÁÆ®¿þ¾î :: Packager :: Object; VARS QW (@ISA)¸¦ »ç¿ëÇϽʽÿÀ. @isa = qw (¼ÒÇÁÆ®¿þ¾î :: Packager :: Object); ####################### # _CHECK_DATA ¿ì¸®´Â ±× ¸ñÀûÁö¿Í foo_data ´Ù¸¥ °ÍÀ» »ó°üÇÏÁö ¾Ê½À´Ï´Ù. sub _check_data {My $ self = shift; ³» ta = @_; $ self-> {destination '}¸¦ »ç¿ëÇÏÁö ¾Ê´Â ÇÑ Undef¸¦ ¹ÝȯÇϽʽÿÀ. $ self -> { 'foo_data'}¸¦ »ç¿ëÇÏÁö ¾Ê´Â ÇÑ Undef¸¦ ¹ÝȯÇÕ´Ï´Ù. # ÀÌÁ¦ ¿ÀºêÁ§Æ®¿¡ ´ëÇÑ µ¥ÀÌÅÍ°¡ ³» $ Å° (KEYS TA) {MY $ ÇÔ¼ö = LC $ Å°; $ self-> $ ÇÔ¼ö ($ data {$ Å°})°¡ ¾Æ´Ï¸é Undef¸¦ ¹ÝȯÇÕ´Ï´Ù. }} ################ # foo_dataÀÌ °´Ã¼¸¦ foo °ªÀ» ¹ÝȯÇÕ´Ï´Ù. sub foo_data {My $ self = shift; $ self-> { 'foo_data'}¸¦ µ¹·ÁÁÝ´Ï´Ù. } 1; __end__of ÄÚ½º´Â ¼ÒÇÁÆ®¿þ¾î ÆÐÅ°Áö·Î ¸ðµâÀ» ¸¸µé¾ú½À´Ï´Ù :: Packager :: Object :: Foo ±×·¯³ª ±×°ÍÀº ´ç½ÅÀÌ ¼±ÅÃÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
¼ÒÇÁÆ®¿þ¾î :: Packager :: Object. °ü·Ã ¼ÒÇÁÆ®¿þ¾î