| Ŭ·¡½º :: ±×·ì Ŭ·¡½º :: ±×·ìÀº ¼Ó¼º ±×·ìÀ» ±¸ÇöÇϱâ À§ÇØ Pragma »ý¼ºµË´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Ŭ·¡½º :: ±×·ì ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Domizio Demichelis
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~domizio/CGI-Application-Plus-1.21/lib/CGI/Application/CheckRM.pm
Ŭ·¡½º :: ±×·ì ű×
Ŭ·¡½º :: ±×·ì ¼³¸í
Ŭ·¡½º :: ±×·ìÀº ¼Ó¼º ±×·ìÀ» ±¸ÇöÇϱâ À§ÇØ Pragma »ý¼ºµË´Ï´Ù. Ŭ·¡½º :: ±×·ìÀº Properties ±×·ìÀ» ±¸ÇöÇϱâ À§ÇØ »ý¼º µÈ PragmaÀÔ´Ï´Ù. SyNopsisClass ÆÐÅ°Áö MyClass; # ¿É¼Ç¾øÀÌ ±×·ì ¸Þ¼Òµå ±¸Çö Ŭ·¡½º :: ±×·ì QW (ÀÌ); # ¼Ó¼ºÀ» »ç¿ëÇÏ¿© ±×·ì ¸Þ¼Òµå ±¸Çö Ŭ·¡½º :: ±×·ì {name => 'myGroup', props => } # ¿É¼Ç »ç¿ë Ŭ·¡½º :: ±×·ì {name => 'myotherGroup', no_strict => 1, default => {aprop => 'ÀϺΠ°ª'}, pre_process => sub {if (ref $ _ EQ '¹è¿ ') {$ _ = {{$ _ => $ _} @ {$ _ => $ _}}}, props => , ±âº»°ª => '¹«¾ð°¡'}]}; »ç¿ë¹ý myClass-> myGroup (% hash); # ¶È°°Àº ÀÏ : myClass-> myGroup (prop1 => 1, prop2 => 2); $ hash_ref = myClass-> myGroup $ value = myClass-> prop2; # $ value == 2 $ value = myClass-> myGroup ( 'prop2'); # $ value == 2 $ value = $ myclass :: myGroup {prop2}; # $ value == 2 $ value = $$ hash_ref {prop2}; # $ value == 2 ($ p1, $ p2) = myClass-> myGroup (); # ±âº»°ªÀº Çؽà ÂüÁ¶ $ other_hash_ref = myClass-> myotherGroup $ value = $ ORTERIFY_HASH_REF -> {prop3} # $ value eq '¹º°¡'# Unknow ¼Ó¼º Ãß°¡ (no_strict) myClass-> myothergroup (prop5 => 5) ); # Àüü Çؽà % MyGrouPhash = MyClass-> MyGroup ¿ä±¸ »çÇ× º¹»ç : ¡¤ Perl.
Ŭ·¡½º :: ±×·ì °ü·Ã ¼ÒÇÁÆ®¿þ¾î