=pod
-=head1 ̾Á°
+=head1 Ã\8c¾Ã\81°
-Class::Data::Inheritable - ·Ñ¾µ²Äǽ¤Ê, ¥ª¡¼¥Ð¡¼¥é¥¤¥É²Äǽ¤Ê¡¢¥¯¥é¥¹¥Ç¡¼¥¿
+Class::Data::Inheritable - ·Ã\91¾µ²Ã\84Ã\87½¤Ã\8a, ¥ª¡¼¥Ã\90¡¼¥é¥¤¥Ã\89²Ã\84Ã\87½¤Ã\8a¡¢¥¯¥é¥¹¥Ã\87¡¼¥¿
-=head1 ³µÍ×
+=head1 ³µÍ×
package Stuff;
use base qw(Class::Data::Inheritable);
- # DataFile¤ò¡¢·Ñ¾µ²Äǽ¤Ê¥¯¥é¥¹¥Ç¡¼¥¿¤È¤·¤Æ¥»¥Ã¥È¥¢¥Ã¥×¤¹¤ë¡£
+ # DataFile¤ò¡¢·Ã\91¾µ²Ã\84Ã\87½¤Ã\8a¥¯¥é¥¹¥Ã\87¡¼¥¿¤Ã\88¤·¤Ã\86¥»¥Ã\83Â¥Ã\88¥¢¥Ã\83Â¥Ã\97¤¹¤ë¡£
Stuff->mk_classdata('DataFile');
- # ¤³¤Î¥¯¥é¥¹¤¿¤á¤Ë¥Ç¡¼¥¿¥Õ¥¡¥¤¥ë¤Î¾ì½ê¤òÀë¸À¤¹¤ë¡£
+ # ¤³¤Ã\8e¥¯¥é¥¹¤¿¤á¤Ã\8bÂ¥Ã\87¡¼¥¿¥Ã\95¥¡¥¤¥ë¤Ã\8e¾ì½ê¤òÃ\80ë¸Ã\80¤¹¤ë¡£
Stuff->DataFile('/etc/stuff/data');
Stuff->mk_classdata(DataFile => '/etc/stuff/data');
-=head1 ³µÍ×
+=head1 ³µÍ×
-Class::Data::Inheritable ¤Ï¡¢¥¯¥é¥¹¥Ç¡¼¥¿¤Î¥¢¥¯¥»¥µ/¥ß¥å¡¼¥Æ¡¼¥¿¤òºî¤ë¤Î¤Ë¸þ¤¤¤Æ¤¤¤Þ¤¹¡£
-¤Ä¤Þ¤ê¡¢(ñ°ì¤Î¥ª¥Ö¥¸¥§¥¯¥È¤È¤Ï°ã¤Ã¤Æ¡¢)¥¯¥é¥¹Á´ÂΤ˲¿¤«¤òÃߤ¨¤¿¤¤¾ì¹ç¤Ç¤¹¡£
-¤³¤Î¥Ç¡¼¥¿¤Ï¡¢¥µ¥Ö¥¯¥é¥¹¤Ç·Ñ¾µ¤µ¤ìÆÀ¤Þ¤¹¤·¡¢¥ª¡¼¥Ð¡¼¥é¥¤¥É¤µ¤ìÆÀ¤Þ¤¹¡£
+Class::Data::Inheritable ¤Ã\8f¡¢¥¯¥é¥¹¥Ã\87¡¼¥¿¤Ã\8e¥¢¥¯¥»¥µ/Â¥Ã\9f¥å¡¼¥Ã\86¡¼¥¿¤òºî¤ë¤Ã\8e¤Ã\8b¸þ¤¤¤Ã\86¤¤¤Ã\9e¤¹¡£
+¤Ã\84¤Ã\9e¤ê¡¢(Ã\83±°ì¤Ã\8e¥ª¥Ã\96¥¸¥§¥¯¥Ã\88¤Ã\88¤Ã\8f°ã¤Ã\83¤Ã\86¡¢)¥¯¥é¥¹Ã\81´Ã\82Ã\8e¤Ã\8b²¿¤«¤òÃ\83Ã\9f¤¨¤¿¤¤¾ì¹ç¤Ã\87¤¹¡£
+¤³¤Ã\8eÂ¥Ã\87¡¼¥¿¤Ã\8f¡¢¥µ¥Ã\96¥¯¥é¥¹¤Ã\87·Ã\91¾µ¤µ¤ìÃ\86Ã\80¤Ã\9e¤¹¤·¡¢¥ª¡¼¥Ã\90¡¼¥é¥¤¥Ã\89¤µ¤ìÃ\86Ã\80¤Ã\9e¤¹¡£
-Îã:
+Îã:
Pere::Ubu->mk_classdata('Suitcase');
-¤³¤ì¤Ï¡¢Suitcate ¥á¥½¥Ã¥É¤ò¡¢Pere::Ubu ¥¯¥é¥¹¤ËÀ¸À®¤·¤Þ¤¹¡£
+¤³¤ì¤Ã\8f¡¢Suitcate ¥á¥½¥Ã\83Â¥Ã\89¤ò¡¢Pere::Ubu ¥¯¥é¥¹¤Ã\8bÃ\80¸Ã\80®¤·¤Ã\9e¤¹¡£
-¿·¤·¤¤¥á¥½¥Ã¥É¤Ï¡¢¥¯¥é¥¹¥Ç¡¼¥¿¤Î°ì¤Ä¤òÆÀ¤¿¤ê¡¢¥»¥Ã¥È¤¹¤ë¤Î¤Ë¡¢»È¤ï¤ìÆÀ¤Þ¤¹¡£
+¿·¤·¤¤¥á¥½¥Ã\83Â¥Ã\89¤Ã\8f¡¢¥¯¥é¥¹¥Ã\87¡¼¥¿¤Ã\8e°ì¤Ã\84¤òÃ\86Ã\80¤¿¤ê¡¢¥»¥Ã\83Â¥Ã\88¤¹¤ë¤Ã\8e¤Ã\8b¡¢»Ã\88¤ï¤ìÃ\86Ã\80¤Ã\9e¤¹¡£
Pere::Ubu->Suitcase('Red');
$suitcase = Pere::Ubu->Suitcase;
-ÌÌÇò¤¤Éôʬ¤¬¡¢¥¯¥é¥¹¤¬ Pere::Ubu ¤«¤é·Ñ¾µ¤¹¤ë¤È¤¤Ëµ¯¤³¤ê¤Þ¤¹¡§
+Ã\8cÃ\8cÃ\87ò¤¤Ã\89ôÃ\8a¬¤¬¡¢¥¯¥é¥¹¤¬ Pere::Ubu ¤«¤é·Ã\91¾µ¤¹¤ë¤Ã\88¤Â¤Ã\8bµ¯¤³¤ê¤Ã\9e¤¹¡§
package Raygun;
use base qw(Pere::Ubu);
- # Raygun¤Î¥¹¡¼¥Ä¥±¡¼¥¹¤Ï Red.
+ # Raygun¤Î¥¹¡¼¥Ä¥±¡¼¥¹¤Ï Red.
$suitcase = Raygun->Suitcase;
-Raygun ¤Ï¡¢Pere::Ubu¤«¤é¥¹¡¼¥Ä¥±¡¼¥¹¥¯¥é¥¹¥Ç¡¼¥¿·Ñ¾µ¤·¤Þ¤¹¡£
+Raygun ¤Ã\8f¡¢Pere::Ubu¤«¤é¥¹¡¼¥Ã\84¥±¡¼¥¹¥¯¥é¥¹¥Ã\87¡¼¥¿·Ã\91¾µ¤·¤Ã\9e¤¹¡£
-¥¯¥é¥¹¥Ç¡¼¥¿¤Î·Ñ¾µ¤Ï¡¢¥á¥½¥Ã¥É·Ñ¾µ¤Ëanalgous¤òư¤«¤·¤Þ¤¹¡£
-Raygun¤¬¡¢·Ñ¾µ¤µ¤ì¤¿¥¯¥é¥¹¥Ç¡¼¥¿¤ò(Suitcase()¤ò»È¤Ã¤Æ¡¢¿·¤·¤¤Ãͤò¥»¥Ã¥È¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ)"¥ª¡¼¥Ð¡¼¥é¥¤¥É"¤·¤Ê¤¤¤«¤®¤ê¡¢
-Pere::Ubu ¤Ç¡¢¥»¥Ã¥È¤µ¤ì¤¿¤â¤Î¤ò¤Ê¤ó¤Ç¤â»È¤¤Â³¤±¡¢°ÊÁ°¤ÎÊѹ¹¤ò·Ñ¾µ¤·Â³¤±¤Þ¤¹¡£
+¥¯¥é¥¹¥Ã\87¡¼¥¿¤Ã\8e·Ã\91¾µ¤Ã\8f¡¢¥á¥½¥Ã\83Â¥Ã\89·Ã\91¾µ¤Ã\8banalgous¤òÃ\86°¤«¤·¤Ã\9e¤¹¡£
+Raygun¤¬¡¢·Ã\91¾µ¤µ¤ì¤¿¥¯¥é¥¹¥Ã\87¡¼¥¿¤ò(Suitcase()¤ò»Ã\88¤Ã\83¤Ã\86¡¢¿·¤·¤¤Ã\83Ã\8d¤ò¥»¥Ã\83Â¥Ã\88¤¹¤ë¤³¤Ã\88¤Ã\8b¤è¤Ã\83¤Ã\86)"¥ª¡¼¥Ã\90¡¼¥é¥¤¥Ã\89"¤·¤Ã\8a¤¤¤«¤®¤ê¡¢
+Pere::Ubu ¤Ã\87¡¢¥»¥Ã\83Â¥Ã\88¤µ¤ì¤¿¤â¤Ã\8e¤ò¤Ã\8a¤ó¤Ã\87¤â»Ã\88¤¤Ã\82³¤±¡¢°Ã\8aÃ\81°¤Ã\8eÃ\8aÃ\91¹¹¤ò·Ã\91¾µ¤·Ã\82³¤±¤Ã\9e¤¹¡£
- # Raygun ¤È Pere::Ubu ¤Î suitcases ¤Ï¡¢º£¤Ï Blue ¤Ç¤¹¡£
+ # Raygun ¤Ã\88 Pere::Ubu ¤Ã\8e suitcases ¤Ã\8f¡¢º£¤Ã\8f Blue ¤Ã\87¤¹¡£
Pere::Ubu->Suitcase('Blue');
-¤·¤«¤·¡¢Raygun ¤¬¡¢¼«Ê¬¼«¿È¤ÎSuitcase() ¤ò¥»¥Ã¥È¤¹¤ë¤Ù¤¤À¤È·è¤á¤ë¤È¡¢
-Suitcase() ¤Ï¡¢ º£¤ä¡¢Pare::Ubu ¤ò"¥ª¡¼¥Ð¡¼¥é¥¤¥É"¤·¤Æ¤ª¤ê¡¢Raygun ¼«¿È¤Î¤â¤Î¤Ç¤¹¡£
-¥ª¡¼¥Ð¡¼¥é¥¤¥É¤µ¤ì¤¿¥á¥½¥Ã¥É¤Ë¤Á¤ç¤¦¤É¡¢»÷¤Æ¤¤¤Þ¤¹¡£
+¤·¤«¤·¡¢Raygun ¤¬¡¢¼«Ã\8a¬¼«¿Ã\88¤Ã\8eSuitcase() ¤ò¥»¥Ã\83Â¥Ã\88¤¹¤ë¤Ã\99¤Â¤Ã\80¤Ã\88·è¤á¤ë¤Ã\88¡¢
+Suitcase() ¤Ã\8f¡¢ º£¤ä¡¢Pare::Ubu ¤ò"¥ª¡¼¥Ã\90¡¼¥é¥¤¥Ã\89"¤·¤Ã\86¤ª¤ê¡¢Raygun ¼«¿Ã\88¤Ã\8e¤â¤Ã\8e¤Ã\87¤¹¡£
+¥ª¡¼¥Ã\90¡¼¥é¥¤¥Ã\89¤µ¤ì¤¿¥á¥½¥Ã\83Â¥Ã\89¤Ã\8b¤Ã\81¤ç¤¦¤Ã\89¡¢»÷¤Ã\86¤¤¤Ã\9e¤¹¡£
- # Raygun ¤Ï orange ¤Î¥¹¡¼¥Ä¥±¡¼¥¹¤ò»ý¤Ä¤¬¡¢Pere::Ubu ¤Î¥¹¡¼¥Ä¥±¡¼¥¹¤Ï¡¢¤Þ¤À Blue ¤Ç¤¹.
+ # Raygun ¤Ã\8f orange ¤Ã\8e¥¹¡¼¥Ã\84¥±¡¼¥¹¤ò»ý¤Ã\84¤¬¡¢Pere::Ubu ¤Ã\8e¥¹¡¼¥Ã\84¥±¡¼¥¹¤Ã\8f¡¢¤Ã\9e¤Ã\80 Blue ¤Ã\87¤¹.
Raygun->Suitcase('Orange');
-¤µ¤Æ¡¢Raygun ¤Ï¡¢Pare::Ubu ¤ò¥ª¡¼¥Ð¡¼¥é¥¤¥É¤·¤¿¤Î¤Ç¡¢Pare::Ubu ¤Ë¤è¤ë¡¢°ÊÁ°¤ÎÊѹ¹¤Ï
-¤Þ¤Ã¤¿¤¯ Raygun ¤Ë¤Ï¡¢±Æ¶Á¤òÍ¿¤¨¤Þ¤»¤ó¡£
+¤µ¤Æ¡¢Raygun ¤Ï¡¢Pare::Ubu ¤ò¥ª¡¼¥Ð¡¼¥é¥¤¥É¤·¤¿¤Î¤Ç¡¢Pare::Ubu ¤Ë¤è¤ë¡¢°ÊÁ°¤ÎÊѹ¹¤Ï
+¤Ã\9e¤Ã\83¤¿¤¯ Raygun ¤Ã\8b¤Ã\8f¡¢±Ã\86¶Ã\81¤òÃ\8d¿¤¨¤Ã\9e¤»¤ó¡£
- # Raygun ¤Ï¡¢¤Þ¤À¡¢orange ¤Î¥¹¡¼¥Ä¥±¡¼¥¹¤Ç¤¹¤¬¡¢ Pere::Ubu ¤Ï¡¢Samsonite ¤ò»È¤¤¤Þ¤¹¡£
+ # Raygun ¤Ã\8f¡¢¤Ã\9e¤Ã\80¡¢orange ¤Ã\8e¥¹¡¼¥Ã\84¥±¡¼¥¹¤Ã\87¤¹¤¬¡¢ Pere::Ubu ¤Ã\8f¡¢Samsonite ¤ò»Ã\88¤¤¤Ã\9e¤¹¡£
Pere::Ubu->Suitcase('Samsonite');
-=head1 ¥á¥½¥Ã¥É
+=head1 ¥á¥½¥Ã¥É
=head2 B<mk_classdata>
Class->mk_classdata($data_accessor_name);
Class->mk_classdata($data_accessor_name => $value);
-¤³¤ì¤Ï¥¯¥é¥¹¥á¥½¥Ã¥É¤Ç¡¢¿·¤·¤¤¥¯¥é¥¹¥Ç¡¼¥¿¤Î¥¢¥¯¥»¥µ¤òÀë¸À¤¹¤ë¤Î¤Ë»È¤ï¤ì¤Þ¤¹¡£
-$data_accessor_name ¤ò̾Á°¤Ë»È¤Ã¤Æ¡¢¿·¤·¤¤¥¢¥¯¥»¥µ¤¬¥¯¥é¥¹Æâ¤Ëºî¤é¤ì¤Þ¤¹¡£
+¤³¤ì¤Ã\8f¥¯¥é¥¹¥á¥½¥Ã\83Â¥Ã\89¤Ã\87¡¢¿·¤·¤¤¥¯¥é¥¹¥Ã\87¡¼¥¿¤Ã\8e¥¢¥¯¥»¥µ¤òÃ\80ë¸Ã\80¤¹¤ë¤Ã\8e¤Ã\8b»Ã\88¤ï¤ì¤Ã\9e¤¹¡£
+$data_accessor_name ¤òÃ\8c¾Ã\81°¤Ã\8b»Ã\88¤Ã\83¤Ã\86¡¢¿·¤·¤¤¥¢¥¯¥»¥µ¤¬¥¯¥é¥¹Ã\86â¤Ã\8bºî¤é¤ì¤Ã\9e¤¹¡£
-¥ª¡¼¥Ð¡¼¥é¥¤¥É¤òÍÆ°×¤Ë¤¹¤ë¤¿¤á¤Ë¡¢mk_classdata ¤Ï¡¢¥¢¥¯¥»¥µ¤Ø¤Î¥¨¥¤¥ê¥¢¥¹ _field_accessor() ¤òºî¤ê¤Þ¤¹¡£
-¤½¤ì¤Ç¡¢Suitcase() ¤Ë¤Ï¡¢_Suitcase_accessor() ¤È¤¤¤¦¥¨¥¤¥ê¥¢¥¹¤¬¤¢¤ê¡¢
-¤³¤Î¥¨¥¤¥ê¥¢¥¹¤Ï¡¢Suitcase() ¤È¡¢¤Á¤ç¤¦¤ÉƱ¤¸¤³¤È¤ò¤·¤Þ¤¹¡£
-ñ°ì¤Î¥¢¥¯¥»¥µ¤Î¿¶¤ëÉñ¤¤¤òÊѤ¨¤è¤¦¤È¤·¤Æ¡¢
-¤Þ¤À¡¢·Ñ¾µ²Äǽ¤Ê¥¯¥é¥¹¥Ç¡¼¥¿¤Î²¸·Ã¤òÆÀ¤¿¤¤¤Ê¤é¡¢Í±×¤Ç¤¹¡£¼¡¤ÎÎã¤Î¤è¤¦¤Ë¡£
+¥ª¡¼¥Ã\90¡¼¥é¥¤¥Ã\89¤òÃ\8dÃ\86°Ã\97¤Ã\8b¤¹¤ë¤¿¤á¤Ã\8b¡¢mk_classdata ¤Ã\8f¡¢¥¢¥¯¥»¥µ¤Ã\98¤Ã\8e¥¨¥¤¥ê¥¢¥¹ _field_accessor() ¤òºî¤ê¤Ã\9e¤¹¡£
+¤½¤ì¤Ã\87¡¢Suitcase() ¤Ã\8b¤Ã\8f¡¢_Suitcase_accessor() ¤Ã\88¤¤¤¦¥¨¥¤¥ê¥¢¥¹¤¬¤¢¤ê¡¢
+¤³¤Ã\8e¥¨¥¤¥ê¥¢¥¹¤Ã\8f¡¢Suitcase() ¤Ã\88¡¢¤Ã\81¤ç¤¦¤Ã\89Ã\86±¤¸¤³¤Ã\88¤ò¤·¤Ã\9e¤¹¡£
+Ã\83±°ì¤Ã\8e¥¢¥¯¥»¥µ¤Ã\8e¿¶¤ëÃ\89ñ¤¤¤òÃ\8aÃ\91¤¨¤è¤¦¤Ã\88¤·¤Ã\86¡¢
+¤Ã\9e¤Ã\80¡¢·Ã\91¾µ²Ã\84Ã\87½¤Ã\8a¥¯¥é¥¹¥Ã\87¡¼¥¿¤Ã\8e²¸·Ã\83¤òÃ\86Ã\80¤¿¤¤¤Ã\8a¤é¡¢Ã\8d±Ã\97¤Ã\87¤¹¡£¼¡¤Ã\8eÃ\8eã¤Ã\8e¤è¤¦¤Ã\8b¡£
sub Suitcase {
my($self) = shift;
$self->_Suitcase_accessor(@_);
}
-=head1 Ãøºî¸¢
+=head1 Ã\83øºî¸¢
-(¸¶Ê¸¤Þ¤Þ)
+(¸¶Ê¸¤Þ¤Þ)
Copyright (c) 2000, Damian Conway and Michael G Schwern. All
Rights Reserved. This module is free software. It may be used,
License (see http://www.perl.com/perl/misc/Artistic.html)
-=head1 Ãø¼Ô
+=head1 Ã\83ø¼Ã\94
-(¸¶Ê¸¤Þ¤Þ)
+(¸¶Ê¸¤Þ¤Þ)
Original code by Damian Conway.
=head1 SEE ALSO
-L<perltootc> ¤Ï¡¢¤È¤Æ¤âÆþǰ¤ÊPerl¤Î¥¯¥é¥¹¥Ç¡¼¥¿¤Ë¤Ä¤¤¤Æ¤ÎµÄÏÀ¤¬¤¢¤ê¤Þ¤¹¡£
+L<perltootc> ¤Ã\8f¡¢¤Ã\88¤Ã\86¤âÃ\86þÃ\87°¤Ã\8aPerl¤Ã\8e¥¯¥é¥¹¥Ã\87¡¼¥¿¤Ã\8b¤Ã\84¤¤¤Ã\86¤Ã\8eµÃ\84Ã\8fÃ\80¤¬¤¢¤ê¤Ã\9e¤¹¡£
-=head1 ËÝÌõ¤Ë¤Ä¤¤¤Æ
+=head1 ËÝÌõ¤Ë¤Ä¤¤¤Æ
-ËÝÌõ¼Ô¡§²ÃÆ£ÆØ (atusi@pure.ne.jp)
+ËÝÌõ¼Ô¡§²ÃÆ£ÆØ (atusi@pure.ne.jp)
-Perl¥É¥¥å¥á¥ó¥ÈÆüËܸìÌõ Project ¤Ë¤Æ¡¢
-Perl¥â¥¸¥å¡¼¥ë¡¢¥É¥¥å¥á¥ó¥È¤ÎËÝÌõ¤ò¹Ô¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£
+PerlÂ¥Ã\89¥¥å¥á¥ó¥Ã\88Ã\86üÃ\8bÃ\9c¸ìÃ\8cõ Project ¤Ã\8b¤Ã\86¡¢
+Perl¥â¥¸¥å¡¼¥ë¡¢¥Ã\89¥¥å¥á¥ó¥Ã\88¤Ã\8eÃ\8bÃ\9dÃ\8cõ¤ò¹Ã\94¤Ã\83¤Ã\86¤ª¤ê¤Ã\9e¤¹¡£
http://sourceforge.jp/projects/perldocjp/
http://freeml.com/ctrl/html/MLInfoForm/perldocjp@freeml.com