File Coverage

blib/lib/Class/Property/RW.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	27	27	100.0

package Class::Property::RW;
use strict; use warnings FATAL => 'all';
#
# This package is prototype. It has no use by itself
#
sub TIESCALAR
{
    my( $class, $object, $field ) = @_;
    return bless \{
        'object' => $object
        , 'field' => $field
    }, $class;
}

sub STORE
{
    my( $self, $value ) = @_;
    ${$self}->{'object'}->{${$self}->{'field'}} = $value;
    return;
}

sub FETCH
{
    my( $self ) = @_;
    return ${$self}->{'object'}->{${$self}->{'field'}};
}

sub DESTROY
{
    my( $self ) = @_;
    ${$self} = undef;
    return;
}

1;