File Coverage

blib/lib/Class/Property/RW/Custom.pm

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

package Class::Property::RW::Custom;
use strict; use warnings FATAL => 'all';
use parent 'Class::Property::RW';

sub TIESCALAR
{
    my( $class, $getter, $setter ) = @_;
    return bless {
        'getter' => $getter
        , 'setter' => $setter
    }, $class;
}

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

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

1;