File Coverage

blib/lib/Scalar/LockRefType.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	8	8	100.0
condition	3	5	60.0
subroutine	7	7	100.0
pod			n/a
total	38	40	95.0

package Scalar::LockRefType;

use 5.010;
use strict;
use warnings;
use Carp;

our $VERSION = '0.03';

sub TIESCALAR {
    my ($class, $type) = @_;
    return bless {
        value => undef,
        type  => @_ < 2 ? undef
        : ref($type)    ? ref($type)
        : length($type) ? $type
        :                 ''
    };
}

sub FETCH { return $_[0]->{value} }

sub STORE {
    my ($self, $value) = @_;
    my $ref = ref $value // '';
    $self->{type} //= $ref;
    croak 'invalid reference type' if $ref ne $self->{type};
    return $self->{value} = $value;
}

__END__