File Coverage

blib/lib/Class/Property/RO/CustomGet.pm

Criterion	Covered	Total	%
statement	11	15	73.3
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	15	20	75.0

package Class::Property::RO::CustomGet;
use strict; use warnings FATAL => 'all';
use parent 'Class::Property::RO';

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

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

1;