File Coverage

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

Criterion	Covered	Total	%
statement	11	16	68.7
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	15	21	71.4

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

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

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

1;