| myco :: entity :: meta :: ¼Ó¼º META µ¥ÀÌÅÍ ¿ë ÄÁÅ×ÀÌ³Ê MYCO ¿£Æ¼Æ¼ Ŭ·¡½ºÀÇ ¼Ó¼ºÀ» ¼³¸íÇÏ´Â ÄÁÅ×ÀÌ³Ê |
Áö±Ý ´Ù¿î·Îµå |
myco :: entity :: meta :: ¼Ó¼º ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- The myco project
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~czbsd/Myco-0.01/lib/Myco.pm
myco :: entity :: meta :: ¼Ó¼º ű×
myco :: entity :: meta :: ¼Ó¼º ¼³¸í
MYCO ¿£ÅÍƼ Ŭ·¡½ºÀÇ ¼Ó¼ºÀ» ¼³¸íÇÏ´Â ¸ÞŸ µ¥ÀÌÅÍ ¿ë ÄÁÅ×ÀÌ³Ê myco :: entity :: meta :: ¼Ó¼ºÀº MyCo Entity ClassÀÇ ¼Ó¼ºÀ» ¼³¸íÇÏ´Â ¸ÞŸ µ¥ÀÌÅÍÀÇ ÄÁÅ×À̳ÊÀÔ´Ï´Ù. Synopsis # Âü°íÀÌ Å¬·¡½º´Â ÀϹÝÀûÀ¸·Î # myco :: entity :: meta ## ¿£Æ¼Æ¼ Ŭ·¡½º Á¤ÀÇ¿¡¼¸¸ »ç¿ëµË´Ï´Ù. - Ŭ·¡½º¿¡ ¼Ó¼º Ãß°¡ # :: ¼Ó¼ºÀÇ »ý¼ºÀÚ´Â # :::: METAÀÇ add_attribute ()¸¦ ÅëÇؼ¸¸ »ç¿ëÇؾßÇÕ´Ï´Ù. my $ md = myco :: entity :: meta (name => __package__); $ md-> add_attribute (name => 'moneness', type => 'int', readonly => 0, # default´Â Àбâ / ¾²±â access_list => {rw => }, tangram_options => {required => 1}, synopsis => "°í±â¸¦ Á¶¸®ÇÏ´Â ¹æ¹ý", syntax_msg => "Á¤È®ÇÑ Çü½Ä, Á¦¹ß!", °ª => , value_labels => {0 => 'Èñ±Í ÇÑ', 1 => 'Áß°£ - Èñ±Í', 2 => '¸Åü', 3 => '¹Ìµð¾ö - À£', 4 => 'À£', 5 => 'Charred'}, ui => {widget => [ 'popup_menu', label => 'Cook tool ...',},); ## ÀϹÝÀûÀÎ »çÈÄ ¼³Ä¡ »ç¿ë·® # ... Myco :: Entity :: Meta Enabled Entity Object $ obj My $ Metadata = $ obj-> Introspect; # $ objÀÇ Å¬·¡½ºÀÇ ¹è¿ :: $ attributes = $ metadata-> get_Attributes; # up up ¼Ó¼ºÀÇ À¯Çü My $ type = $ ¼Ó¼º -> {doness} -> get_type; ÀúÀåµÈ Á¢±Ù ÀÚ CodeRef - ¼³Á¤µÈ Doneeness = 3 $ ¼Ó¼º -> {Doness} -> setval ($ obj, 3); ¿ä±¸ »çÇ× : ¡¤ Perl.
myco :: entity :: meta :: ¼Ó¼º °ü·Ã ¼ÒÇÁÆ®¿þ¾î