++ed by:

2 non-PAUSE user(s).

Tony Bowden

̾��

Class::Data::Inheritable - �Ѿ���ǽ��, �����С��饤�ɲ�ǽ�ʡ����饹�ǡ���

����

  package Stuff;
  use base qw(Class::Data::Inheritable);

  # DataFile�򡢷Ѿ���ǽ�ʥ��饹�ǡ����Ȥ��ƥ��åȥ��åפ��롣
  Stuff->mk_classdata('DataFile');

  # ���Υ��饹�����˥ǡ����ե������ξ������������롣
  Stuff->DataFile('/etc/stuff/data');
  

        Stuff->mk_classdata(DataFile => '/etc/stuff/data');

����

Class::Data::Inheritable �ϡ����饹�ǡ����Υ�������/�ߥ塼�ơ����������Τ˸����Ƥ��ޤ��� �Ĥޤꡢ(ñ���Υ��֥������ȤȤϰ��äơ�)���饹���Τ˲������ߤ����������Ǥ��� ���Υǡ����ϡ����֥��饹�ǷѾ��������ޤ����������С��饤�ɤ������ޤ���

��:

  Pere::Ubu->mk_classdata('Suitcase');

�����ϡ�Suitcate �᥽�åɤ���Pere::Ubu ���饹���������ޤ���

�������᥽�åɤϡ����饹�ǡ����ΰ��Ĥ������ꡢ���åȤ����Τˡ��Ȥ������ޤ���

  Pere::Ubu->Suitcase('Red');
  $suitcase = Pere::Ubu->Suitcase;

��������ʬ�������饹�� Pere::Ubu �����Ѿ������Ȥ��˵������ޤ���

  package Raygun;
  use base qw(Pere::Ubu);
  
  # Raygun�Υ����ĥ������� Red.
  $suitcase = Raygun->Suitcase;

Raygun �ϡ�Pere::Ubu���饹���ĥ��������饹�ǡ����Ѿ����ޤ���

���饹�ǡ����ηѾ��ϡ��᥽�åɷѾ���analgous��ư�����ޤ��� Raygun�����Ѿ����줿���饹�ǡ�����(Suitcase()���Ȥäơ��������ͤ򥻥åȤ��뤳�Ȥˤ��ä�)"�����С��饤��"���ʤ������ꡢ Pere::Ubu �ǡ����åȤ��줿���Τ��ʤ��Ǥ��Ȥ�³�����������ѹ����Ѿ���³���ޤ���

  # Raygun �� Pere::Ubu �� suitcases �ϡ����� Blue �Ǥ���
  Pere::Ubu->Suitcase('Blue');

��������Raygun ������ʬ���Ȥ�Suitcase() �򥻥åȤ����٤����ȷ������ȡ� Suitcase() �ϡ� ���䡢Pare::Ubu ��"�����С��饤��"���Ƥ��ꡢRaygun ���ȤΤ��ΤǤ��� �����С��饤�ɤ��줿�᥽�åɤˤ��礦�ɡ����Ƥ��ޤ���

  # Raygun �� orange �Υ����ĥ����������Ĥ���Pere::Ubu �Υ����ĥ������ϡ��ޤ� Blue �Ǥ�.
  Raygun->Suitcase('Orange');

���ơ�Raygun �ϡ�Pare::Ubu �򥪡��С��饤�ɤ����Τǡ�Pare::Ubu �ˤ��롢�������ѹ��� �ޤä��� Raygun �ˤϡ��ƶ���Ϳ���ޤ�����

  # Raygun �ϡ��ޤ���orange �Υ����ĥ������Ǥ����� Pere::Ubu �ϡ�Samsonite ���Ȥ��ޤ���
  Pere::Ubu->Suitcase('Samsonite');

�᥽�å�

mk_classdata

  Class->mk_classdata($data_accessor_name);
  Class->mk_classdata($data_accessor_name => $value);

�����ϥ��饹�᥽�åɤǡ����������饹�ǡ����Υ������������������Τ˻Ȥ����ޤ��� $data_accessor_name ��̾���˻Ȥäơ��������������������饹���˺������ޤ���

�����С��饤�ɤ��ưפˤ��뤿���ˡ�mk_classdata �ϡ����������ؤΥ����ꥢ�� _field_accessor() �������ޤ��� �����ǡ�Suitcase() �ˤϡ�_Suitcase_accessor() �Ȥ��������ꥢ�������ꡢ ���Υ����ꥢ���ϡ�Suitcase() �ȡ����礦��Ʊ�����Ȥ򤷤ޤ��� ñ���Υ��������ο����񤤤��Ѥ��褦�Ȥ��ơ� �ޤ����Ѿ���ǽ�ʥ��饹�ǡ����β��ä��������ʤ顢ͭ�פǤ����������Τ褦�ˡ�

  sub Suitcase {
      my($self) = shift;
      warn "Fashion tragedy" if @_ and $_[0] eq 'Plaid';

      $self->_Suitcase_accessor(@_);
  }

���

(��ʸ�ޤ�)

Copyright (c) 2000, Damian Conway and Michael G Schwern. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html)

����

(��ʸ�ޤ�)

Original code by Damian Conway.

Maintained by Michael G Schwern <schwern@pobox.com> until September 2005.

Now maintained by Tony Bowden.

BUGS and QUERIES

Please direct all correspondence regarding this module to: bug-Class-Data-Inheritable@rt.cpan.org

SEE ALSO

perltootc �ϡ��ȤƤ���ǰ��Perl�Υ��饹�ǡ����ˤĤ��Ƥε����������ޤ���

�����ˤĤ���

�����ԡ���ƣ�� (atusi@pure.ne.jp)

Perl�ɥ������������ܸ��� Project �ˤơ� Perl�⥸�塼�롢�ɥ��������Ȥ��������ԤäƤ����ޤ���

 http://sourceforge.jp/projects/perldocjp/
 http://freeml.com/ctrl/html/MLInfoForm/perldocjp@freeml.com
 http://www.perldoc.jp

1 POD Error

The following errors were encountered while parsing the POD:

Around line 3:

Non-ASCII character seen before =encoding in '̾��'. Assuming UTF-8




Hosting generously
sponsored by Bytemark