myco :: base :: entity :: meta :: ¼Ó¼º

META µ¥ÀÌÅÍ ¿ë ÄÁÅ×ÀÌ³Ê MYCO ¿£Æ¼Æ¼ Ŭ·¡½ºÀÇ ¼Ó¼ºÀ» ¼³¸íÇÏ´Â ÄÁÅ×À̳Ê
Áö±Ý ´Ù¿î·Îµå

myco :: base :: entity :: meta :: ¼Ó¼º ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • The myco project
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~czbsd/Myco-0.01/lib/Myco.pm

myco :: base :: entity :: meta :: ¼Ó¼º ű×


myco :: base :: entity :: meta :: ¼Ó¼º ¼³¸í

MYCO ¿£ÅÍƼ Ŭ·¡½ºÀÇ ¼Ó¼ºÀ» ¼³¸íÇÏ´Â ¸ÞŸ µ¥ÀÌÅÍ ¿ë ÄÁÅ×ÀÌ³Ê myco :: base :: entity :: meta :: attribute´Â MyCo Entity classÀÇ ¼Ó¼ºÀ» ¼³¸íÇÏ´Â ¸ÞŸ µ¥ÀÌÅÍ¿¡ ´ëÇÑ ÄÁÅ×À̳ÊÀÔ´Ï´Ù.ÀÌ Å¬·¡½º´Â ÀϹÝÀûÀ¸·Î # myco :: base :: Entity :: meta #¸¦ ÅëÇؼ­¸¸ »ç¿ëµË´Ï´Ù. # ¿£Æ¼Æ¼ Ŭ·¡½º Á¤ÀÇ ³»¿¡¼­ - Ŭ·¡½º¿¡ ¼Ó¼º Ãß°¡ # :: ¼Ó¼ºÀÇ »ý¼ºÀÚ´Â ±×¸²°ú °°ÀÌ # :::::::ATTRIBUTE ()¸¦ ÅëÇؼ­¸¸ »ç¿ëÇؾßÇÕ´Ï´Ù. :: 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 :: Base :: 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 :: base :: entity :: meta :: ¼Ó¼º °ü·Ã ¼ÒÇÁÆ®¿þ¾î