Class::Data::Inheritable のソースを読んでみる。 - hibomaの日記

「これぐらい読めるようになれyo!」と、どこかのエントリーで紹介されていたClass::Data::Inheritableのソースを読んでみます。読めるかな・・・ドキドキ package Class::Data::Inheritable; use strict qw(vars subs); use vars qw($VERSION); $VERSION = '0.04'; sub mk_classdata { my ($declaredclass, $attribute, $data) = @_; if( ref $declaredclass ) { require Carp; Carp::croak("mk_classdata() is a class method, not an object method"); } my $accessor = sub { my $wantclass

[amayan]

[Class::Data::Inheritable][cpan][oop][object]

[d4-1977]

Class::Data::Inheritable のソースを読んでみた話。