File Coverage

blib/lib/Ref/Store/Common.pm

Criterion	Covered	Total	%
statement	36	38	94.7
branch	1	2	50.0
condition			n/a
subroutine	12	13	92.3
pod	0	1	0.0
total	49	54	90.7

package Ref::Store::Common;
use strict;
use warnings;
use base qw(Exporter);
use Carp qw(carp confess);
our (@EXPORT,%EXPORT_TAGS,@EXPORT_OK);

my @logfuncs;

sub log_dummy {
    @_ = sprintf("".shift @_, @_);
    goto &carp;
}

$SIG{__DIE__} = \&confess;

BEGIN {
    @logfuncs = map { $_, $_ . 'f' } map { 'log_' . $_ }
        qw(warn crit info debug err);
}

use Module::Stubber
    'Log::Fu' => [ { level => "debug" } ],
    will_use => { map { $_ => \&log_dummy } @logfuncs };

#Keep these in sync with hrdefs.h HR_HKEY_LOOKUP_
use Constant::Generate [qw(
    HR_TIDX_NULL
    HR_TIDX_SLOOKUP
    HR_TIDX_FLOOKUP
    HR_TIDX_RLOOKUP
    HR_TIDX_KEYTYPES
    HR_TIDX_ALOOKUP
    HR_TIDX_KEYFUNC
    HR_TIDX_UNKEYFUNC
    HR_TIDX_FLAGS
    HR_TIDX_PRIVDATA
    HR_TIDX_ITER
)], export => 1;

#These map method names to lookup indicex
our %LookupNames = (
    reverse         => HR_TIDX_RLOOKUP,
    scalar_lookup   => HR_TIDX_SLOOKUP,
    forward         => HR_TIDX_FLOOKUP,
    attr_lookup     => HR_TIDX_ALOOKUP,
    keyfunc         => HR_TIDX_KEYFUNC,
    unkeyfunc       => HR_TIDX_UNKEYFUNC,
    keytypes        => HR_TIDX_KEYTYPES,
    priv            => HR_TIDX_PRIVDATA,
    flags           => HR_TIDX_FLAGS,
    _iter           => HR_TIDX_ITER
);

use Constant::Generate [qw(
    HR_KFLD_STRSCALAR
    HR_KFLD_REFSCALAR
    HR_KFLD_TABLEREF
    HR_KFLD_ATTRHASH
    HR_KFLD_AVAILABLE
)], export => 1;

use Constant::Generate [qw(
    HR_REVERSE_KEYS
    HR_REVERSE_ATTRS
)], export => 1;

use Constant::Generate [qw(
    DUPIDX_RLOOKUP
    DUPIDX_FLOOKUP
    DUPIDX_ALOOKUP
    DUPIDX_SLOOKUP
)], -tag => 'pp_constants' => -export_ok => 1;

#Keep this in sync with C code
use Constant::Generate {
    HR_PREFIX_DELIM => '#'
}, export => 1;

BEGIN {
    if(!$Module::Stubber::Status{'Log::Fu'}) {
        push @EXPORT, @logfuncs;
    }
}

1;