File Coverage

blib/lib/Class/Accessor/Chained/Fast.pm

Criterion	Covered	Total	%
statement	13	22	59.0
branch	3	8	37.5
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	22	38	57.8

use strict;
package Class::Accessor::Chained::Fast;
use base 'Class::Accessor::Fast';

sub make_accessor {
    my($class, $field) = @_;

    return sub {
        my $self = shift;
        if(@_) {
            $self->{$field} = (@_ == 1 ? $_[0] : [@_]);
            return $self;
        }
        return $self->{$field};
    };
}

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 {
            $self->{$field} = (@_ == 1 ? $_[0] : [@_]);
            return $self;
        }
    };
}

1;

=head1 NAME

Class::Accessor::Chained::Fast - Faster, but less expandable, chained accessors

=head1 SYNOPSIS

 package Foo;
 use base qw(Class::Accessor::Chained::Fast);

  # The rest as Class::Accessor::Chained except no set() or get().

=head1 DESCRIPTION

By analogue to Class::Accessor and Class::Accessor::Fast this module
provides a faster less-flexible chained accessor maker.

=head1 AUTHOR

Richard Clamp

=head1 COPYRIGHT

Copyright (C) 2003 Richard Clamp.  All Rights Reserved.

This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=head1 SEE ALSO

L, L

=cut