File Coverage

blib/lib/Ref/Store/Key.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	1	2	50.0
condition			n/a
subroutine	13	13	100.0
pod	0	4	0.0
total	43	49	87.7

package Ref::Store::Key;
use strict;
use warnings;
use Scalar::Util qw(weaken);
use Ref::Store::Common;

#This is an attribute,

sub weaken_encapsulated {
    if(ref $_[0]->[HR_KFLD_REFSCALAR]) {
        weaken $_[0]->[HR_KFLD_REFSCALAR];
    }
}

sub kstring {
    $_[0]->[HR_KFLD_STRSCALAR];
}

sub unlink_value {
    #Pass, we don't need to do anything.
    #The key object is destroyed and magic is invoked
    #on the remaining scalar and forward entries
}

sub link_value {
    #Nothing here, either
}

package Ref::Store::Key::Encapsulating;
use strict;
use warnings;
use Scalar::Util qw(weaken);
use Ref::Store::Common;
use base qw(Ref::Store::Key);

1;