Class::Accessor

Sledge::Pages::Baseの中身を覗くと、baseとなってるクラスの一つ。

package Sledge::Pages::Base;
# $Id: Base.pm,v 1.46 2002/10/30 03:06:18 miyagawa Exp $
#
# Tatsuhiko Miyagawa
# Livin' On The EDGE, Co., Ltd..
#

use strict;
use base qw(Class::Accessor Class::Data::Inheritable);

関係ないけど、「Class::Accessor::Class」もべんり。

http://search.cpan.org/~kasei/Class-Accessor-0.25/lib/Class/Accessor.pm
http://search.cpan.org/~rjbs/Class-Accessor-Class-0.500/lib/Class/Accessor/Class.pm