Tadashi Okoshi
slash****@users*****
2005年 10月 25日 (火) 04:20:43 JST
Index: affelio_farm/admin/skelton/affelio/apps/Mixi/extlib/Class/Accessor/Fast.pm
diff -u affelio_farm/admin/skelton/affelio/apps/Mixi/extlib/Class/Accessor/Fast.pm:1.1.1.1 affelio_farm/admin/skelton/affelio/apps/Mixi/extlib/Class/Accessor/Fast.pm:removed
--- affelio_farm/admin/skelton/affelio/apps/Mixi/extlib/Class/Accessor/Fast.pm:1.1.1.1 Tue Oct 25 04:14:40 2005
+++ affelio_farm/admin/skelton/affelio/apps/Mixi/extlib/Class/Accessor/Fast.pm Tue Oct 25 04:20:43 2005
@@ -1,94 +0,0 @@
-package Class::Accessor::Fast;
-use base 'Class::Accessor';
-use strict;
-$Class::Accessor::Fast::VERSION = '0.19';
-
-=head1 NAME
-
-Class::Accessor::Fast - Faster, but less expandable, accessors
-
-=head1 SYNOPSIS
-
- package Foo;
- use base qw(Class::Accessor::Fast);
-
- # The rest as Class::Accessor except no set() or get().
-
-=head1 DESCRIPTION
-
-This is a somewhat faster, but less expandable, version of
-Class::Accessor. Class::Accessor's generated accessors require two
-method calls to accompish their task (one for the accessor, another
-for get() or set()). Class::Accessor::Fast eliminates calling
-set()/get() and does the access itself, resulting in a somewhat faster
-accessor.
-
-The downside is that you can't easily alter the behavior of your
-accessors, nor can your subclasses. Of course, should you need this
-later, you can always swap out Class::Accessor::Fast for
-Class::Accessor.
-
-=cut
-
-sub make_accessor {
- my($class, $field) = @_;
-
- return sub {
- my $self = shift;
- return $self->{$field} unless @_;
- $self->{$field} = (@_ == 1 ? $_[0] : [@_]);
- };
-}
-
-
-sub make_ro_accessor {
- my($class, $field) = @_;
-
- return sub {
- return $_[0]->{$field} unless @_ > 1;
- my $caller = caller;
- require Carp;
- Carp::croak("'$caller' cannot alter the value of '$field' on ".
- "objects of class '$class'");
- };
-}
-
-
-sub make_wo_accessor {
- my($class, $field) = @_;
-
- return sub {
- my $self = shift;
-
- unless (@_) {
- my $caller = caller;
- require Carp;
- Carp::croak("'$caller' cannot access the value of '$field' on ".
- "objects of class '$class'");
- }
- else {
- return $self->{$field} = (@_ == 1 ? $_[0] : [@_]);
- }
- };
-}
-
-
-=head1 EFFICIENCY
-
-L<Class::Accessor/EFFICIENCY> for an efficiency comparison.
-
-=head1 CURRENT AUTHOR
-
-Marty Pauley <marty****@kasei*****>
-
-=head1 ORIGINAL AUTHOR
-
-Michael G Schwern <schwe****@pobox*****>
-
-=head1 SEE ALSO
-
-L<Class::Accessor>
-
-=cut
-
-1;