| DBIX :: SearchBuilder :: ·¹ÄÚµå DBIX :: SearchBuilder :: ·¹ÄÚµå´Â SearchBuilder°¡·Îµå ÇÑ ·¹Äڵ忡 ´ëÇÑ Perl ¼öÆÛ Å¬·¡½ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
DBIX :: SearchBuilder :: ·¹ÄÚµå ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Jesse Vincent
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jesse/
DBIX :: SearchBuilder :: ·¹ÄÚµå ű×
DBIX :: SearchBuilder :: ·¹ÄÚµå ¼³¸í
DBIX :: SearchBuilder :: ·¹ÄÚµå´Â SearchBuilder°¡·Îµå ÇÑ ·¹Äڵ忡 ´ëÇÑ Perl ¼öÆÛ Å¬·¡½ºÀÔ´Ï´Ù. dbix :: searchBuilder :: ·¹ÄÚµå´Â searchBuilder.Synopsis Package MyRecord°¡·Îµå ÇÑ ·¹Äڵ忡 ´ëÇÑ Perl ¼öÆÛ Å¬·¡½ºÀÔ´Ï´Ù. ±âº» QW / DBIX :: SearchBuilder :: Record /; SUB _INIT {MY $ self = shift; ³» $ dbixhandle = shift; # dbix :: searchBuilder :: ÇÚµé :: µ¥ÀÌÅͺ£À̽º ¿ë °´Ã¼ $ self-> _ ÇÚµé ($ dbixhandle); $ self-> Å×À̺í ( "»ç¿ëÀÚ"); } # ±âº» Å°°¡ ÇÏÀ§ Å°°¡ ¹«¾ùÀÎÁö ¾Ë·ÁÁֽʽÿÀ. _primarykeys {return ; } # AutoLoader°¡ Attriv ¹× SetAttrib ¸Þ¼Òµå¸¦ »ý¼ºÇϱâ À§ÇØ ÆÄ»ý # Ŭ·¡½º¿¡¼ ÇÊµå ¼Ó¼ºÀ» ÁöÁ¤ÇÏ´Â °¡Àå È¿À²ÀûÀÎ ¹æ¹ýÀ» ¼±È£ÇÏ°í È¿À²ÀûÀ¸·Î ÁöÁ¤ÇÕ´Ï´Ù. # Àбâ : $ object-> foo´ÂÀÌ ·¹ÄÚµåÀÇ foo ¿ÀÇ °ªÀ» ¹ÝȯÇÕ´Ï´Ù # ¾¹´Ï´Ù : ´ÜÀÏ °ªÀ¸·Î $ object-> setfoo¸¦ È£ÃâÇϸé·Îµå µÈ °³Ã¼¿Í µ¥ÀÌÅͺ£À̽º ÇÏÀ§ _classaCcessible {{tofu = > { 'read'=> 1, 'write'=> 1}, maz => { 'auto'=> 1,}, roo => {read '=> 1,'auto '=> 1,'public '=> 1,},}; } # º¸¾È ¸ñÀûÀ» À§ÇØ ÇöÀç °ª #À» ¹ÝȯÇÏÁö ¾Ê°í »ç¿ëÀÚÀÇ ¾ÏÈ£¸¦ È®ÀÎÇÏ´Â ¼ºê ·çƾÀº SUB ISPASSWORD À§ÀÇ ¾ÏÈ£ ¸Þ¼Òµå¸¦ ³ëÃâÇÏÁö ¾Ê¾Ò½À´Ï´Ù. {MY $ self = shift; ³» $ try = shift; # __valueÀÇ µÎ __s¸¦ ºñ°í. ¼ºê Ŭ·¡½º´Â _Value¿Í ÇÔ²² Muck ÇÒ ¼ö ÀÖÁö¸¸ # __Value¸¦ ¸¸Áö¸é °áÄÚ __value¸¦ ¸¸³ªÁö ¾Ê¾Æ¾ßÇÕ´Ï´Ù ($ ( '¾ÏÈ£') {return (1); } else {return (Undef); }} # DBIX :: SearchBuilder :: Create Sub Create {My $ Self = Shift; my % fields = (userID => undef, password => 'default', # ±âº» ¾ÏÈ£ @_); # userID°¡ ($ Çʵå {userid '}) {die "»ç¿ëÀÚ ID°¡ ÁöÁ¤µÇÁö ¾ÊÀ¸¸é userID°¡ ÁöÁ¤µÇ¾ú´ÂÁö È®ÀÎÇϽʽÿÀ."; } # dbix :: searchBuilder :: Record-> »ý¼º ½ÇÁ¦ ÀÛ¾÷ ¸®ÅÏ ($ self-> super :: create (userid => $ fields {userid '}, password => $ fields}} , »ý¼º µÈ => ½Ã°£)); } ¿ä±¸ »çÇ× : ¡¤ Perl.
DBIX :: SearchBuilder :: ·¹ÄÚµå °ü·Ã ¼ÒÇÁÆ®¿þ¾î