File Coverage

blib/lib/Data/WeakMap/Key/Tie.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	26	26	100.0

package Data::WeakMap::Key::Tie;
use 5.014;
use warnings FATAL => 'all';

use Scalar::Util 'weaken';
use Carp 'croak';

our $VERSION = "v0.0.3";

sub TIESCALAR {
    my ($class, $weakmap, $key) = @_;

    my $self = { weakmap => $weakmap, prop => "$key", key => $key };
    weaken($self->{$_}) foreach qw/ weakmap key /;

    bless $self, $class;
}

sub FETCH {
    my ($self) = @_;

    return $self->{key};
}

sub STORE {
    my ($self) = @_;

    delete $self->{weakmap}{$self->{prop}};
}

1;