File Coverage

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

Criterion	Covered	Total	%
statement	28	29	96.5
branch	3	4	75.0
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	43	45	95.5

use strict;
package Class::Accessor::Lvalue::Fast;
use base qw(Class::Accessor::Fast);
use Want;

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

    return sub :lvalue {
        my $self = shift;
        $self->{$field};
    };
}

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

    return sub :lvalue {
        my $self = shift;
        if (want 'LVALUE') {
            my $caller = caller;
            require Carp;
            Carp::croak("'$caller' cannot alter the value of '$field' on ".
                          "objects of class '$class'");
        }
        return $self->{$field};
    };
}

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

    return sub :lvalue {
        my $self = shift;
        unless (want 'LVALUE') {
            my $caller = caller;
            require Carp;
            Carp::croak("'$caller' cannot access the value of '$field' on ".
                          "objects of class '$class'");
        }
        $self->{$field};
    };
}

1;
__END__